求助：独立的BUG某字段必填的QC脚本程序怎么写啊？

ppplug

比如，我想限定Test组里面的成员当BUG状态更改为‘关闭’时BG_USER_01字段必填，怎么写？我只会前面，如下：
If (User.IsInGroup("Test") and _
        Bug_Fields("BG_STATUS").Value = "关闭")  Then
         .........Bug_Fields("BG_USER_01").IsRequired=  False........
  End If
其中省略号中间的我不知道怎么写，请知道的大哥大姐帮帮忙！

[ 本帖最后由 ppplug 于 2008-12-15 17:05 编辑 ]

ppplug

请问QC里面有没有过程控制脚本，比如说控制当BUG从某个状态变为某个状态时，个别字段必填？

飘渺的风

if Bug_Fields("BG_STATUS").IsModified and Bug_Fields("BG_STATUS").Value = "已关闭" and not Bug_Fields("BG_USER_01").IsModified then
                  Defects_Bug_CanPost = False
                  msgbox "请填写'必须字段"

放在Defects_Bug_CanPost下面

cj88886666

Sub Defects_Bug_FieldChange(FieldName)
  On Error Resume Next
    If (User.IsInGroup("Test") and _
       Bug_Fields("BG_STATUS").IsModified and _
       Bug_Fields("BG_STATUS").Value = "关闭" then
        Bug_Fields("BG_USER_01").IsRequired=  True
    Else
        Bug_Fields("BG_USER_01").IsRequired=  False
    End If
    PrintError "Defects_Bug_FieldChange"
  On Error GoTo 0
End Sub