示例：更改基于用户组的字段

此示例演示如何按照输入缺陷的用户的用户组来更改字段值。

在此示例中，用户定义字段 BG_USER_01 是检测模式字段，检测到缺陷的用户可以输入发现它的方式。可能的值有 Formal testing、Informal testing 和 BTW。

该示例在缺陷由非 QA Tester 组的用户打开时，将检测模式字段的值设置为 BTW。如果缺陷由 QA Tester 组中的用户打开，则设置默认值 Formal testing。

将代码添加到事件过程 Bug_New，这样添加缺陷时就会触发。

Sub Bug_New
        On Error Resume Next
        If not User.IsInGroup("QATester") then
            Bug_Fields("BG_USER_01").Value = "BTW"
        Else
            Bug_Fields("BG_USER_01").Value = "Formal testing"
        End If
        PrintError "Bug_New"
        On Error GoTo 0
End Sub