QC 里fixbug时加注释，否则提示，但现在加了注释也会提示，高人指点下

Graceli

Dim CommentFiledFlag
Function Bug_CanPost
  On Error Resume Next
  If Not Bug_Fields("BG_BUG_ID").IsNull AND Bug_Fields("BG_STATUS").Value = "Fixed" Then
        If CommentFieldFlag = True then
          Defects_Bug_CanPost = True
        Else
          Defects_Bug_CanPost = False
          MsgBox "Please add a comment !"
        End If
     'Else
         'Defects_Bug_CanPost = True
     End If

  'Bug_CanPost = DefaultRes
  On Error GoTo 0
End Function

Sub Bug_AfterPost
  On Error Resume Next
  CommentFieldFlag = False
  On Error GoTo 0
End Sub

Function Bug_CanDelete(Entity)
  On Error Resume Next

  Bug_CanDelete = DefaultRes
  On Error GoTo 0
End Function

Sub Defects_EnterModule
    On Error Resume Next
   initialises flag
   CommentFieldFlag = False
  On Error GoTo 0
End Sub

Sub Bug_New
  On Error Resume Next

  On Error GoTo 0
End Sub