ＱＣ工作流脚本（１）

若ＢＵＧ状态改为“已否决”或“不修改”时，强制录入备注信息

　　Sub Defects_Bug_FieldChange(FieldName)
  On Error Resume Next
     if fieldname="BG_STATUS"    and _
       (Bug_Fields("BG_STATUS").IsModified and _
         (Bug_Fields("BG_STATUS").Value = "已否决" or _
         Bug_Fields("BG_STATUS").Value = "不修改")) then
                Bug_Fields("BG_DEV_COMMENTS").IsRequired=true
        Defects_Bug_CanPost = False
        msgbox "请在注释中加上说明"
        Else
   Defects_Bug_CanPost = True
   Bug_Fields("BG_DEV_COMMENTS").IsRequired=false
        End If

  On Error GoTo 0
End Sub