Champ Arbre

[iznogood]

Bonjour,

J'aurais besoin d'aide pour ajouter les Noeuds fils et les feuilles qui lui sont attachées.

sRacine
     sBrancheType (Noeuds principaux)
               sBrancheFamille (Noeuds fils)
                            sFeuille (Feuilles)

Code :

//// Variables
sRacine est une chaîne = "Toutes"
sBrancheType est une chaîne
sBrancheFamille est une chaîne
sFeuille est une chaîne

// Initialisation
ArbreAjoute(ARBRE_Etiquettes,sRacine,IMG_Dossierracine,IMG_Dossierracine,"0")

// Types de produits
i=0
BOUCLE
    i++
    HLit(FTypesProduits,i)
    SI HEnDehors() ALORS SORTIR
    SI (HEtat()=hEtatActif) ALORS
        // Création du type dans le TreeView
        sBrancheType=SansEspace(FTypesProduits.NomTypeProduit)
        sBrancheFamille=SansEspace(FFamillesProduits.NomFamillesProduits)
        sFeuille=SansEspace(FProduits.Resumenomproduitvaleur)
        ArbreAjoute(ARBRE_Etiquettes,sRacine+TAB+sBrancheType,IMG_Typefermes,IMG_Typeouvert,"G"+FTypesProduits.IDFTypesProduits)
        ArbreDéroule(ARBRE_Etiquettes,sRacine)
        // Recherche des familles de produit affectées à ces types
        HLitRecherche(FFamillesProduits,NomTypeProduit,FTypesProduits.IDFTypesProduits)
        TANTQUE HTrouve()
            ArbreAjoute(ARBRE_Etiquettes,sRacine+TAB+sBrancheType+TAB+sBrancheFamille+TAB+SansEspace(FFamillesProduits.NomFamillesProduits),"P"+FFamillesProduits.IDFFamillesProduits)
            HLitSuivant(FFamillesProduits,NomTypeProduit)
        FIN
    FIN
FIN

J'ai essayé plusieurs configurations mais sans succés.

Merci de votre aide.