分享此页面

# 示例：对象验证

此示例演示如何通过使用 `CanPost` 事件过程来执行所有字段的验证。例如，此代码段确保用户不能在没有添加注释的情况下拒绝缺陷。

在此示例中，用户不能发布缺陷状态 (BG_STATUS) 已更改为 `Rejected` 的缺陷，除非已在研发注释字段 (BG_DEV_COMMENTS) 中输入了一些解释文本。

将代码添加到 `Bug_CanPost` 事件过程，这样用户试图提交缺陷时将执行检查。

    Function Bug_CanPost
            ' Initialize the function's return value
    	 ' to avoid unpredictable behavior.
            Bug_CanPost =  False
            On Error Resume Next
            If Bug_Fields("BG_STATUS").IsModified and _
            Bug_Fields("BG_STATUS").Value = "Rejected" and _
            not Bug_Fields("BG_DEV_COMMENTS").IsModified then
                Bug_CanPost = False
                msgbox "You must enter a comment when rejecting a defect."
            Else
                Bug_CanPost = True
            End If
            PrintError "Bug_CanPost"
            On Error GoTo 0
    End Function

https://admhelp.microfocus.com ALM 8942
改进搜索结果的提示... ALM 帮助中心 ALM 帮助中心 ALM 帮助 17.0 全部查看本地帮助中心查看联机帮助中心后退在浏览器历史记录中后退前进在浏览器历史记录中前进删除突出显示的搜索项下一个主题转到下一个主题上一个主题转到上一个主题打印当前主题版本: