Partager cette page

# 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

https://admhelp.microfocus.com ALM 8942
Conseils pour améliorer vos résultats de recherche... ALM Help Center ALM Help Center Aide ALM 17.0 Tout Afficher le centre d’aide local Afficher le centre d’aide en ligne arrière Revenir en arrière dans l’historique de navigation avant Avancer dans l’historique de navigation Désactiver la mise en surbrillance dans les résultats de recherche rubrique suivante Atteindre la rubrique suivante rubrique précédente Atteindre la rubrique précédente Imprimer la rubrique actuelle Version :