Exemple : présentation d’une liste de champs dynamique

Cet exemple montre comment vous pouvez présenter une liste de champs différente dans un champ, en fonction de la valeur d’un autre champ.

La fonction définie par l’utilisateur SW_SetLists_Environment vérifie la valeur du champ Spécification de l’environnement et attribue la liste de champs appropriée au champ Type d’environnement.

Cet exemple suppose que les listes de champs ont été définies dans le projet. Pour plus d’informations, voir Personnaliser les listes de champs.

Note : Pour utiliser des scripts de flux de travail afin de modifier ou de créer des listes qui peuvent être affectées à des champs, vous devez utiliser l’interface Open Test Architecture (OTA).

Ajoutez du code à la procédure d’événement Bug_MoveTo afin que la fonction définie par l’utilisateur SW_SetLists_Environment soit appelée lorsque l’utilisateur change de focus dans le module de défauts.

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

Ajoutez du code à la procédure d’événement Bug_FieldChange afin que la fonction définie par l’utilisateur SW_SetLists_Environment soit appelée lorsqu’un utilisateur modifie la valeur du champ Type d’environnement dans le module Défauts.

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

La fonction définie par l’utilisateur SW_SetLists_Environment vérifie la valeur du champ Spécification de l’environnement (BG_USER_02) et attribue la liste de champs appropriée au champ Type d’environnement (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