示例:根据另一个字段来更改一个字段

此示例演示如何根据输入另一个字段的值来更改字段值。

例如,将 UI Suggestion 输入类别字段时导致将缺陷分配到用户 alex_qc,输入 Security Issues 时分配到用户 alice_qc。

该示例假定用户定义的字段 BG_USER_05 用于存储类别。在“缺陷”模块中更改类别字段时,BG_RESPONSIBLE 字段将分配到相应值。

将代码添加到 Bug_FieldChange 事件过程,这样用户更改缺陷的字段值时就会触发它。

Sub Bug_FieldChange(FieldName)
        On Error Resume Next
        If FieldName = "BG_USER_05" then
            Select case Bug_Fields("BG_USER_05").Value
            case "UI Suggestion"
                Bug_Fields("BG_RESPONSIBLE").value="alex_qc"
            case "Security Issue"
                Bug_Fields("BG_RESPONSIBLE").value="alice_qc"
            Case Else
                Bug_Fields("BG_RESPONSIBLE").value="non-assigned"
            End Select
        End If
        PrintError "Bug_FieldChange"
        On Error GoTo 0
End Sub