示例：呈现动态字段列表

此示例演示如何根据另一个字段的值，在字段中呈现不同的字段列表。

用户定义的函数 SW_SetLists_Environment 检查环境规范字段的值，并将相应字段列表分配到环境类型字段。

此示例假定字段列表已在项目中定义。有关详细信息，请参见自定义字段列表。

将代码添加到 Bug_MoveTo 事件过程，这样用户在缺陷模块中更改聚焦对象时，就会调用用户定义的函数 SW_SetLists_Environment。

Sub Bug_MoveTo()
        On Error Resume Next
        SW_SetLists_Environment
        PrintError "Bug_MoveTo"
        On Error GoTo 0
End Sub

将代码添加到 Bug_FieldChange 事件过程，这样用户在“缺陷”模块中更改环境类型字段的值时，就会调用用户定义的函数 SW_SetLists_Environment。

Sub Bug_FieldChange(FieldName)
        On Error Resume Next
        If FieldName = "BG_USER_01" then
            SW_SetLists_Environment
        Else
            ' Enter your code here.
        End If
        PrintError "Bug_FieldChange"
        On Error GoTo 0
End Sub

用户定义的函数 SW_SetLists_Environment 会检查环境规范字段 (BG_USER_02) 的值，并将相应字段列表分配到环境类型字段 (BG_USER_01)。

Sub SW_SetLists_Environment()
        Dim listName
        On Error Resume Next
        Select Case Bug_Fields("BG_USER_01").Value
        Case "Browser"
            listName = "Browsers"
        Case "Database Type"
            listName = "Database Type"
        Case "Operating System"
            listName = "Platform"
        Case "Web Server"
            listName = "Web Server"
        Case Else
            listName = "Environment Specification"
        End Select
        Bug_Fields("BG_USER_02").List = Lists(listName)
        PrintError ("Set Environment List")
        On Error GoTo 0
End Sub