TreeView Ajout des feuilles

Version imprimable

Bonjour,

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

Code:

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:

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.:calim2:

Merci de votre aide.

Bonjour,
Il est préférable d'initialiser les parcours par les fonctions suffixées par Premier/Dernier. Cela peut avoir une influence au niveau de la recherche. Si le pointeur est déjà sur le dernier enregistrement, il retourne la position de cet enregistrement, et il ne trouve pas d'enregistrement suivant.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
	HLitPremier(FTypesProduits,i)
	TANTQUE HTrouve(FTypeProduit)
		// 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
		HLitRecherchePremier(FFamillesProduits,NomTypeProduit,FTypesProduits.NomTypeProduit)
		TANTQUE HTrouve(FFamillesProduits)
	 ArbreAjoute(ARBRE_Etiquettes,sRacineTV+TAB+sBrancheTV+TAB+SansEspace(FFamillesProduits.NomFamillesProduits),IMG_Dossierfermé,IMG_Dossierfermé,"P"+FFamillesProduits.IDFFamillesProduits)
			HLitSuivant(FFamillesProduits,NomTypeProduit)
		FIN
                HLitSuivant(FtypeProduit)
	FIN

Dans le cas de ton problème, il aurait été souhaitable d'utiliser le mode Pas à pas.

Il y a aussi la version "Compacte"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
PROCÉDURE RemplirArbre(chNomArbre est Champ)
sNomBranche est une chaîne
sNomFeuille est chaîne
sCondition est chaîne
 
ArbreAjoute(chNomArbre,"Racine")
POUR TOUT TypeProduit 
	sNomBranche=ChaîneConstruit("Racine%1%2",TAB,TypeProduit.Type)
	ArbreAjoute(chNomArbre,sNomBranche)
	sCondition=ChaîneConstruit("FK_TypeProduit=%1",TypeProduit.PK_TypeProduit)
	POUR TOUT Famille  AVEC sCondition
		sNomFeuille=ChaîneConstruit("%1%2%3",sNomBranche,TAB,Famille.Famille)
		ArbreAjoute(chNomArbre,sNomFeuille)
	FIN
FIN
ArbreDérouleTout(chNomArbre)

28/04/2020, 17h44
Rokitdev

Merci pour ces 2 solutions :) :mrgreen: