1、如果BUG的Status变更了的话，相应变更Closed in Version为最新版本，相应自动增加Comments的回复；
例如张三2012年3月31日将BUG的Status由Fixed变更为Closed后，Closed in Version自动变更为最新版本E 0.0.5.0，Comments里自动添加回复内容“张三<zhangsan>，2012/3/31：版本 E 0.0.5.0验证已修改；”
如果之前已经有回复信息的话，就另起一行后添加回复内容“________________________________________”再另起一行后添加回复内容“张三<zhangsan>，2012/3/31：版本 E 0.0.5.0验证已修改；”
其实效果就是等于手动点击Comment按键后输入上面的那些内容即可；
还有BUG里面有两种版本号，分别以E和W开头，变更Closed in Version版本号时能否根据Detected in Version版本来变更为对应的最新的版本号；
2、BUG里面的两种版本号是对应Subject里的两种项目的，新建BUG时，能否根据选择的Subject去自动变更Detected in Version为对应的最新的版本号；
Sub Defects_Bug_FieldChange(FieldName)
On Error Resume Next
dim i
i=""
msg1 ="遗留或不修改此缺陷需要输入说明！"
title1 ="输入说明"
If FieldName = "BG_STATUS" Then
if (Bug_Fields("BG_STATUS").Value = "P2-待遗留" or Bug_Fields("BG_STATUS").Value = "P3-暂时不修改") and Bug_Fields("BG_DEV_COMMENTS").Value = "" then
do
i= InputBox(msg1,title1)
if i="" then
msgbox"必须输入说明"
else exit do
end if
loop
Bug_Fields("BG_DEV_COMMENTS").Value = i
end if
end if
On Error GoTo 0
End Sub
简单的说下思路吧，相信这个里面的代码也不是很复杂。
1．开始声明和定义一些需要使用的变量和内容。
2．判断修改的字段是不是缺陷状态（BG_STATUS）
3．再判断修改成的内容是不是遗留或者不修改
4．最后判断说明（BG_DEV_COMMENTS）里面是不是没有内容
5．如果是的话，就打开输入函数输入说明（InputBox(msg1,title1)）
6．做个循环，如果没有输入说明，就提示必须输入说明（msgbox"必须输入说明"）
7．最后吧输入的内容赋值给保存说明的字段（BG_DEV_COMMENTS）
各位大虾帮帮我
在线等