QC缺陷状态改变时提示

near

我现在在QC中想实现当开发人员对测试人员提出的Bug进行否决的时候，提示开发人员在注释部分添加否决原因，也不是强制的，就只是提醒一下。但是每次弹出的提示框点击确定后，在注释部分添加注释后，再在页面上的空白部分点击一下又会弹出原来的提示框，不知道是啥原因。如果不添加注释就不会再弹出，为什么会这样？请高手赐教。（不仅仅是注释，如果修改描述同样会有这个问题，郁闷啦）下面是我添加的代码：
Sub Defects_Bug_FieldChange(FieldName)
         if Bug_Field("BG_USER_02").IsModified and_
(Bug_field("BG_USER_02").Value="否决") then
       msgbox "请添加注释说明否决原因"
    end if
on error goto 0
end sub

near

有高手回答啊    期待中啊

zhongling520

代码写错地方了。要写的Bug_CanPost事件中。