1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
// Vide la Combo
ListeSupprimeTout(COMBO_Département)
// Ajoute première ligne
ListeAjoute(COMBO_Département, "Sélectionner"+gLien(0))
// Si un élément sélectionné et code_pays > 0
SI ListeSelect(COMBO_Pays) > 0 _ET_ COMBO_Pays..ValeurMémorisée > 0 ALORS
// Recherche le premier département avec ce code_pays
HLitRecherchePremier(dept, code_pays, COMBO_Pays..ValeurMémorisée)
// Parcours du fichier dept
TANTQUE HTrouve(dept)
// Ajouter les dept un par un avec en glien le code_dept
ListeAjoute(COMBO_Département, dept.design_dept+ gLien(dept.code_dept))
// Passes au pays suivant
HLitSuivant(dept)
FIN
FIN
// Sélectionne la première ligne
ListeSelectPlus(COMBO_Département,1) |