QC工作流问题
现在项目运用到QC 但是在新建BUG时描述中是空的 我觉得这点没有BUGFREE好用我想在描述中加入 [步骤] [预期] [实际] [备注]
请问怎么在工作流中设置阿 小弟编程水平有限,所以想请高手帮忙解决下 深表感谢!
附图是BUGFREE上缺陷描述的图! 在工作流中写脚本,在Bugnew的函数中,把你想添加的模板内容赋值给描述字段。很简单的。 怎么赋值呢?
Sub Defects_Bug_New
WizardFieldCust_Add ' 由向导添加
End Sub
是这个函数吧? 已解决! 怎么解决的?说说呀。。。。。。。 请教下怎么解决的?非常感谢! 可不可以进一步设置模版字体的颜色和大小 Sub Defects_Bug_New
On Error Resume Next
Bug_Fields("BG_PLANNED_CLOSING_VER").IsVisible="false"
Bug_Fields("BG_ACTUAL_FIX_TIME").IsVisible="false"
' 设置初始默认值
Bug_Fields("BG_USER_01").Value="代码错误"
Bug_Fields("BG_USER_06").Value="功能测试"
Bug_Fields("BG_USER_02").Value="Win xp"
Bug_Fields("BG_USER_10").Value="IE7"
'Start:缺陷内容模板配置
'[步骤]:
'1.
''2.
' 3.
'[预期结果]:
'[实际结果]:
Bug_Fields("BG_DESCRIPTION").Value="<html><body>" + Bug_Fields("BG_DESCRIPTION").Value+"<font color=""#000080""><b>[描述]</b><br>" '+chr(13)
Bug_Fields("BG_DESCRIPTION").Value=Bug_Fields("BG_DESCRIPTION").Value+" <font color=""#000080"">1.<font color=""#000000""> <br>" '+chr(13)
Bug_Fields("BG_DESCRIPTION").Value=Bug_Fields("BG_DESCRIPTION").Value+" <font color=""#000080"">2.<font color=""#000000""> <br>" '+chr(13)
Bug_Fields("BG_DESCRIPTION").Value=Bug_Fields("BG_DESCRIPTION").Value+" <font color=""#000080"">3.<font color=""#000000""> <br>" '+chr(13)+chr(13)
Bug_Fields("BG_DESCRIPTION").Value=Bug_Fields("BG_DESCRIPTION").Value+"<font color=""#000080""><b>[预期结果]</b><font color=""#000000""><br><font color=""#000000""> <br>" '+chr(13)+chr(13)
Bug_Fields("BG_DESCRIPTION").Value=Bug_Fields("BG_DESCRIPTION").Value+"<font color=""#000080""><b>[实际结果]</b><font color=""#000000""><br><font color=""#000000""> <br>" '+chr(13)+chr(13) +chr(13)
Bug_Fields("BG_DESCRIPTION").Value=Bug_Fields("BG_DESCRIPTION").Value+ "</html></body>"
On Error GoTo 0
WizardFieldCust_Add ' 由向导添加
End Sub
页:
[1]