1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
sNomFeuille est une chaîne
// ajout de la racine de l'arbre
ArbreAjoute(ARBRE_VEHICLE,"Vehicles List",aDéfaut,aDéfaut)
// Exécution de la requête qui permet de remplir l'arbre
HExécuteRequête(REQ_VEHICULE_LIST2)
HLitPremier(REQ_VEHICULE_LIST2)
// parcours de la requêtes pour afficher les vehicules
TANTQUE PAS HEnDehors(REQ_VEHICULE_LIST2)
sNomFeuille = "Vehicles List"+TAB+REQ_VEHICULE_LIST2.VEHICLE_NAME
ArbreAjoute(ARBRE_VEHICLE,sNomFeuille,aDéfaut,aDéfaut,sNomFeuille)
HLitSuivant(REQ_VEHICULE_LIST2)
FIN
// on déroule l'arbre pour que toutes les feuilles soient visibles
ArbreDérouleTout(ARBRE_VEHICLE) |
Partager