分享此页面

# 示例：呈现动态字段列表

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

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

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

备注: 要使用工作流脚本更改或创建可以分配到字段的列表，必须使用 Open Test Architecture (OTA) 接口。

将代码添加到 `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

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