TD bug 中，Add Comment问题

snyygyso2005

在TD BUG中，单击Add Comment默认是在文本内容最后添加个人信息，现在如何让它在当前光标处添加个人信息

snyygyso2005

大家都不知道怎么做吗？我在 wofkflow中不知道它调用了那个函数，请大家帮忙

linzish

初始化TD Defects的description格式

对TD7.6:

Sub Bug_New

  'add by lvzl
  Fields.Field("BG_DESCRIPTION").Value = "【测试环境】" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "【测试步骤及现象】" & Chr(13) & Chr(10) & "1." & Chr(13) & Chr(10) & "2." & Chr(13) & Chr(10)& "【问题描述】"  & Chr(13) & Chr(10) & "1." & Chr(13) & Chr(10) & "2." & Chr(13) & Chr(10)&"【定位信息】"& Chr(13) & Chr(10)& Chr(13) & Chr(10)&"【重现条件】"& Chr(13) & Chr(10) & Chr(13) & Chr(10)
  'add by lvzl

End Sub

对8.0：

defect module script:

[方法一]
千万注意！！！
先在脚本的最上面定义一个变量:
Dim Fields
然后修改Sub Defects_Bug_New:
==========


Sub Defects_Bug_New 'added by upgrade process

'add by lvzl

  Fields = Bug_Fields
  Fields("BG_DESCRIPTION").Value = "【测试环境】" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "【测试步骤及现象】" & Chr(13) & Chr(10) & "1." & Chr(13) & Chr(10) & "2." & Chr(13) & Chr(10) & "3." & Chr(13) & Chr(10) & "【期望结果】"  & Chr(13) & Chr(10) & "[实际结果]"& Chr(13) & Chr(10)

  On Error Resume Next
  On Error GoTo 0

'add by lvzl

End Sub

[改进方法二：领导提出，是否可以区分两种加TD的方式，若通过testplan加，则使用关联需求和test的方式；若通过Defects加，则使用格式化description字段的方式；]

Sub Defects_Bug_New
On Error Resume Next
'//  WizardFieldCust_Add ' Added by wizard
  'adding by lvzl
'//    Fields = Bug_Fields
    'AddDefect_SetFieldsLayout
    'AddDefect_SetDefaultValues
'//    Fields("BG_DESCRIPTION").Value = "【测试环境】" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "【测试步骤及现象】" & Chr(13) & Chr(10) & "1." & Chr(13) & Chr(10) & "2." & Chr(13) & Chr(10) & "3." & Chr(13) & Chr(10) & "【期望结果】"  & Chr(13) & Chr(10) & "[实际结果]"& Chr(13) & Chr(10)
  'adding by lvzl

   Fields = Bug_Fields

   if  trim(Fields("BG_SUBJECT").Value) = "" then
   Fields("BG_DESCRIPTION").Value = "[Pre Condition]" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "[Procedure]" & Chr(13) & Chr(10) & "1." & Chr(13) & Chr(10) & "2." & Chr(13) & Chr(10) & "3." & Chr(13) & Chr(10) & "[Expected Behavior]:"  & Chr(13) & Chr(10) & "[Result Behavior]:"
   end if

   Fields("BG_USER_10").Value = "1"

On Error GoTo 0
End Sub

snyygyso2005

谢谢linzish 。你说这种我已经实现了。我想的是，

如果BUG的评论中已经有内容，这时再单击“add comment ”按钮，新的内容我想让它插入到当前光标处。

snyygyso2005

请各位大侠帮一下忙

木木妹

大家不知道有没有思考过td的结构，工作流是td结构的什么部分？td和咱们开发的b/s系统一样，有前台和后台，工作流就是后台，数据处理部分，你提的这个问题，我想过，我认为是前台问题，是onclick事件，后台对文本框的大小，文字对齐方式等等都无法控制。所以在后台工作流中无法解决你这个问题