Bonjour,

Dans une fenêtre j'ai inséré un champ arbre mais je n'arrive pas à rajouter mon dernier dernier niveau.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
PROCÉDURE FEN_TypeImpressionEtiquette()
 
GLOBAL
i est un entier
s est une chaîne
nIDFFProduits est un entier
Mon ABRE

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
// Variables
sRacineTV est une chaîne = "Toutes"
sBrancheTV est une chaîne
sFeuilleTV est une chaîne
 
// Initialisation
ArbreAjoute(ARBRE_Etiquettes,sRacineTV,IMG_Dossierracine,IMG_Dossierracine)
 
// Groupes des produits
i=0
BOUCLE
	i++
	HLit(FTypesProduits,i)
	SI HEnDehors() ALORS SORTIR
	SI (HEtat()=hEtatActif) ALORS
		// Création du groupe des types de produit dans le TreeView
		sBrancheTV=SansEspace(FTypesProduits.NomTypeProduit)
		ArbreAjoute(ARBRE_Etiquettes,sRacineTV+TAB+sBrancheTV,IMG_Typefermes,IMG_Typeouvert,aDéfaut,aDéfaut,"G"+FTypesProduits.IDFTypesProduits)
		ArbreDéroule(ARBRE_Etiquettes,sRacineTV+TAB+sBrancheTV)
		// Recherche des Familles de produits affectées à ce groupe
		HLitRecherche(FFamillesProduits,NomTypeProduit,FTypesProduits.NomTypeProduit)
		TANTQUE HTrouve()
			ArbreAjoute(ARBRE_Etiquettes,sRacineTV+TAB+sBrancheTV+TAB+SansEspace(FFamillesProduits.NomFamillesProduits),IMG_Dossierfermé,IMG_Dossierfermé,"P"+FFamillesProduits.IDFFamillesProduits)
			HLitSuivant(FFamillesProduits,NomTypeProduit)
		FIN
	FIN
FIN
J'ai ma Racine, mes Noeuds, mais lorsque j'essaye d'ajouter mes feuilles soit rien ne s'affiche ou tous dans un noeud au hasard.

Merci de votre aide.