Gambas France BETA

treeview (episode 2)

Ce sujet est résolu.

1
Auteur	Messages
janoxe	#1 Posté le 9/1/2019 à 13:35:29
	Ousp, le post a été posté incomplet. Je ne trouve ni documentation ni exemple sur ce sujet. Merci de votre aide. Voici le code actuel 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 37 38 39 40 41 42 43 44 PUBLIC SUB FillTreeview() 'Remplir le treeview DIM i_Categ AS INTEGER DIM i_Class AS INTEGER DIM i_Fam AS INTEGER DIM nd_Categ AS STRING DIM nd_class AS STRING DIM nd_Fam AS STRING DIM qry_Categ AS Result DIM qry_Class AS Result DIM qry_Fam AS Result '1er niveau qry_Categ = DB.Exec("SELECT Categorie FROM tb_Categorie ORDER BY Categorie ASC") IF qry_Categ.Available THEN FOR EACH qry_Categ nd_Categ = qry_Categ!Categorie INC i_Categ trv_Jardin.Add("A" & i_Categ, nd_Categ) '2éme niveau qry_Class = DB.Exec("Select * from tb_Classe WHERE Categorie = &1 order by Categorie ASC, Classe ASC", nd_Categ) IF qry_Class.Available THEN FOR EACH qry_Class nd_class = qry_Class!Classe INC i_Class trv_Jardin.Add("B" & i_Class, nd_Class,, "A" & i_Categ) '3ème niveau qry_Fam = DB.Exec("Select * from tb_Famille WHERE Classe = &1 order by Classe ASC, Famille ASC", nd_Class) IF qry_Fam.Available THEN FOR EACH qry_Fam nd_Fam = qry_Fam!Famille INC i_Fam trv_Jardin.Add("C" & i_Fam, nd_Fam,, "B" & i_Class) NEXT ENDIF NEXT ENDIF NEXT ENDIF trv_Jardin.Item.Text END
spheris	#2 Posté le 9/1/2019 à 23:01:57
	Bonsoir, Comme la treeview hérite des listview ou listbox, je te propose cet exemple à adapter à ton programme : http://gambaslinux.fr/articles.php?lng=fr&pg=315 Ce petit exemple pourra aussi t'aider : http://gambaslinux.fr/articles.php?lng=fr&pg=521 Ensuite pour utiliser labase de données, voilà un exemple assez complet : http://gambaslinux.fr/articles.php?lng=fr&pg=191 www.gambaslinux.fr
janoxe	#3 Posté le 12/1/2019 à 10:27:07
	Merci Spheris. J'avais oublié ce site gambaslinux, mon dernier développement remonte à 8 ans maintenant! Je remets ce site dans mes favoris. Avec l'EDI et l'aide à la saisie, je testais les méthodes une par une. Les méthodes SELECT et MOVEPARENT me permettent d'avoir les données nécessaires. Je vais étudier tes exemples, histoire de rafraichir le cerveau.
1