Discussion :

[devalender]

Bonjour à tous

Voici mon arbre que je remplit à partir d'une base de donnée :



Je voudrais supprimer ou rendre invisible les éléments qui n'ont pas de libellé (marqués en bleu sur l'image ci dessus )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
HLitPremier(ReqMvts)
	TANTQUE HEnDehors() = Faux
 
		SI ReqMvts.lib_groupe2 <> "" ALORS
			ArbreAjoute(Arbre1, ReqMvts.libgroupr + TAB + ReqMvts.lib_groupe1 + TAB + ReqMvts.lib_groupe2 + TAB + ReqMvts.lib_groupe3 + TAB + ReqMvts.lib_groupe4, aDéfaut , aDéfaut  ,ip , aDernier )
			HLitSuivant(ReqMvts) 
		SINON	
			//Pas de remplissage
		FIN			
		ip ++	
	FIN

Mais je n'ai rien qui s'affiche
Je ne vois pas comment procéder

Merci de m'aider

[devalender]

Enfin je pense que j'ai trouver la réponse ma question :

le code qui marche chez moi, je n'ai donc plus de noeud vide.

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
 
SI PAS HExécuteRequêteSQL(ReqMvts, MaConnexion1, hRequêteSansCorrection ,sReqSQL) ALORS
	Erreur ( "Erreur VOIR ICI:" + RC + HErreurInfo ())
	RETOUR
SINON
	POUR TOUT ReqMvts
 
		SI ReqMvts.lib_groupe2<> ""
			ArbreAjoute(Arbre1, ReqMvts.lib_groupe1 + TAB + ReqMvts.lib_groupe2, aDéfaut, aDéfaut, "",aDernier)
		FIN
		SI ReqMvts.lib_groupe3 <> ""
		ArbreAjoute(Arbre1, ReqMvts.lib_groupe1 + TAB + ReqMvts.lib_groupe2 + TAB + ReqMvts.lib_groupe3, aDéfaut, aDéfaut, "",aDernier)
		FIN
		SI ReqMvts.lib_groupe4 <> ""
			ArbreAjoute(Arbre1, ReqMvts.lib_groupe1 + TAB + ReqMvts.lib_groupe2 + TAB + ReqMvtslib_groupe3 + TAB + ReqMvts.lib_groupe4, aDéfaut, aDéfaut, "",aDernier)
		FIN
 
	FIN

Merci à tous