Remplir tableau hiérarchique
Bonjour,
J'ai un tableau hiérarchique et j'ai ajouté une colonne interrupteur. Je rempli mon tableau via la programmation.
Ce que je souhaite c'est si toutes les cases de mes lignes enfants sont coché, je voudrais coché la case de la ligne parent. Mais je vois pas comment faire .
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
sLigneEnfantCoche est un booléen
sLigneEnfantCoche = Faux
sLigneParentCoche est un booléen
sLigneParentCoche = Vrai
HExécuteRequête(REQ_Liste_Ligne_Parent)
HLitPremier(REQ_Liste_Ligne_Parent,REQ_Liste_Ligne_Parent.Num)
TANTQUE HTrouve()=Vrai ET HEnDehors()=Faux
TableAjouteFils(PAGE_MaPage.TABLEH_MaTable, "", REQ_Liste_Ligne_Parent.Num)
REQ_Detail_Ligne_Parent.Param = REQ_Liste_Ligne_Parent.Num
HExécuteRequête(REQ_Detail_Ligne_Parent)
HLitPremier(REQ_Detail_Ligne_Parent,REQ_Detail_Ligne_Parent.ID)
TANTQUE HTrouve()=Vrai ET HEnDehors()=Faux
SI REQ_Detail_Ligne_Parent.Status = "OK" ALORS
sLigneEnfantCoche = Vrai
SINON
sLigneParentCoche= Faux
FIN
TableAjouteFils(PAGE_MaPage.TABLEH_MaTable, REQ_Liste_Ligne_Parent.Num,REQ_Detail_Ligne_Parent.Champ1,REQ_Detail_Ligne_Parent.Champ2, sLigneEnfantCoche)
HLitSuivant(REQ_Detail_Ligne_Parent,REQ_Detail_Ligne_Parent.ID)
FIN
HLitSuivant(REQ_Liste_Ligne_Parent,REQ_Liste_Ligne_Parent.Num)
FIN |