Function Defects_Bug_CanPost

    On Error Resume Next



   If (Bug_Fields("BG_STATUS").IsModified and _
         Bug_Fields("BG_STATUS").Value = "待改" and _
                        (User.IsInGroup("项目经理")  or _
             User.IsInGroup( "开发人员")))    then

             Bug_Fields("BG_PRIORITY").IsRequired=Req


    Else

        Defects_Bug_CanPost = True

    End If



    On Error GoTo 0

    If (Bug_Fields("BG_STATUS").IsModified and _
         Bug_Fields("BG_STATUS").Value = "非错" and _
            not Bug_Fields("BG_DEV_COMMENTS").IsModified)  and _
                        (User.IsInGroup("项目经理")  or _
             User.IsInGroup( "开发人员"))    then



        Defects_Bug_CanPost = False

        msgbox "请在注释中加上非错说明"
         Else

        Defects_Bug_CanPost = True

        End If



    On Error GoTo 0

End Function

[ 本帖最后由 shhuangfy 于 2008-6-17 15:06 编辑 ]

想要达到的效果为：
1：当开发人员，项目经理把缺陷的状态改为：非错时，一定要填写备注；；
2：当开发人员，项目经理把缺陷的状态改为：待改时，一定要选择优先级；；

目前系统的效果为：项目经理把缺陷改为‘非错’是要写备注与优先级，改为‘待改’时，要选择优先级，
以上的代码有问题，不知如何修改

Function Defects_Bug_CanPost

    On Error Resume Next



   If (Bug_Fields("BG_STATUS").IsModified and _
         Bug_Fields("BG_STATUS").Value = "待改" and _
                        (User.IsInGroup("项目经理")  or _
             User.IsInGroup( "开发人员")))    then

             Bug_Fields("BG_PRIORITY").IsRequired=Req

   

    elseIf

   

    (Bug_Fields("BG_STATUS").IsModified and _
         Bug_Fields("BG_STATUS").Value = "非错" and _
            not Bug_Fields("BG_DEV_COMMENTS").IsModified)  and _
                        (User.IsInGroup("项目经理")  or _
             User.IsInGroup( "开发人员"))    then

        Defects_Bug_CanPost = False

        msgbox "请在注释中加上非错说明"
         

        Else

        Defects_Bug_CanPost = True

        End If



    On Error GoTo 0

End Function

[ 本帖最后由 shhuangfy 于 2008-6-17 15:06 编辑 ]

这样也不行

Function Defects_Bug_CanPost

    On Error Resume Next



   If (Bug_Fields("BG_STATUS").IsModified and _
      (User.IsInGroup("项目经理")  or _
             User.IsInGroup( "开发人员")))    then
             select case Bug_Fields("BG_STATUS").value
             case "非错"
             Defects_Bug_CanPost = False

        msgbox "请在注释中加上非错说明"
    Else

        Defects_Bug_CanPost = True
            
             case "待改"

             Bug_Fields("BG_PRIORITY").IsRequired=Req


    Else

        Defects_Bug_CanPost = True
　　end select
    End If



    On Error GoTo 0

[ 本帖最后由 shhuangfy 于 2008-6-17 15:07 编辑 ]

这样也是不行的

QC脚本高手哇
只会添加初始列表值
哈哈

你那样做是一定有问题的，首先语法就通过不了。

另外，在逻辑上也存在一些问题。按照你的逻辑，只要是将缺陷字段填为“非错”，将会出现无法提交BUG的情况。无论人家写没写注释，都会出现。如果你需要强制人家填写注释，就需要检验注释是否为空，作为Defects_Bug_CanPost = true的一个条件。但是即使注释字段不为空，你也无法控制其内容是否有效，所以这种做法其实没什么太多的意义。

关于对非错的缺陷的控制，我认为这样比较合理。首先，研发人员在将其置为“非错”时，我们提示需要填写Commit部分。在close的时候，对commit进行手动检查，看看其理由是否合理。如果理由不合理，继续置回Open就可以了。

而且我觉得，你在Defects_Bug_CanPost中处理可能有点不妥。我觉得在Defects_Bug_FieldChange(FieldName)中处理可能会更好，因为置为非错状态，任何时候都可能发生的。

这样试试：
在Defects_Bug_FieldCanChange(FieldName, NewValue)中
if FieldName = "BG_STATUS" then  //针对BUG状态的处理
if  User.IsInGroup("项目经理")  or User.IsInGroup( "开发人员" then //
if NewValue="非错" then
msgbox"请在注释中加上非错说明"
Defects_Bug_FieldCanChange=False
exit Function
end if
end if
end if

呵呵，有阵子没来这儿了
那个问题我已经解决了
现在是另外一个问题
我现在要求把问题改成遗留或是非错时，一定要指定审核人，然后同时提示他们一定要发邮件

现在如果我以Msbbox的方式提示的话，不管它有无发送邮件总会有提示

可是我即使发了邮件它还报这个提示

Function Defects_Bug_CanPost

    On Error Resume Next

    ' If (Bug_Fields("BG_STATUS").IsModified and _
       '(Bug_Fields("BG_STATUS").Value = "非错"or _
          '  Bug_Fields("BG_STATUS").Value = "遗留" ) and _
                    '   (User.IsInGroup("测试人员")  or _
           ' User.IsInGroup( "开发人员")) )   then
       ' Defects_Bug_CanPost = False

       ' msgbox "状态修改后请发邮件给相应的审核人！"


       ' else

        'Defects_Bug_CanPost = true

     '   End If

所以现在想到的解决方法
1：不与弹出框的方式显示提示信息

2：以弹出框的方式，点击确认后，弹出发送邮件的功能模块

具体还不知道如何实现呢