Treeview a partir datatable

Je pensais faire sur ma maquete un treeview. Mais je ne sais pas comment faire sa structure entierement

j'ai une datatable de la forme suivante

A | aa | tt
A | aa | tu
A | ab | st
A | ab | su
B | bb | uu
B | bb | ur

etc....

Prmierement : je pensais a utiliser une liste deroulante pour la première colonne afin de creer une selection
a partir de la seconde colonne serai un treenode et la 3 eme des nodes enfants.
Mon probleme c'est que sur une sélection de la liste déroulante je peux avoir plusieur treenodes

declarer un treenodes je pense le faire comme cela

Code:

---

TreeView1.Nodes.Add(New TreeNode(dataview1.rows(0)cells(2).value))

---

par contre déclarer le second treenodes je ne sais pas forcement sur quelle ligne du dataview il se trouve... et surtout comment le coder pour que je deploie les nodes suivants


Merci bien

Bon voila ou j'en suis

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim Nme As String = Convert.ToString(ComboBox1.SelectedItem.ToString.Substring(0, 3)) 'récupération des initiales Dim Dtview1 As New DataView Dim dtview2 As New DataView Dim tbl01 As New DataTable Dim val As String Dim dr As DataRow Dim Tab() As String Dim X As Integer     'création de la table dataview avec tri par chargé d'affaires sélectionné par combobox With Dtview1 .Table = DBGMAODataSet.Tables("contrat") .RowFilter = "[Chargé d'affaires] ='" & Nme & "'" .Sort = "Chantier,N° contrat ASC" End With

---

Donc j'ai creer un premier tri de ma Datatable
j'aimerai extraire les données de la colonne A , enlever les doublons , afin d'avoir une liste pour les treenodes.

je ne sais pas si je peux extraire vers une variable tableau le contenue filtre?

Merci bien

Tu as au moins deux solutions,
la première serait d'utiliser LINQ pour faire un distinct sur la vue .
La deuxième est d'utiliser la méthode DataView.ToTable qui permet de faire un distinct en lui donnant en paramètre le nom des colonnes voulues...

La première solution est plus belle mais c'est légèrement plus dur à appréhender pour un débutant.

Un exemple de copie d'une colonne d'un datatble vers une variable tableau ???

Bon j'ai tenté de faire :

Code:

---

1 2 3

For a As Integer = 0 To tbl01.Rows.Count - 1 Tab(a) = Convert.ToString(tbl01.Rows(a).Item(1)) Next

---

Mais j'ai l'erreur suivante : La référence d'objet n'est pas définie à une instance d'un objet.

cependant dans le debug j'ai bien la valeur rechercher ???

Ca serait pas moin compliqué de remplir ton treeview recursivement?

J'suis bien prêt à t'Aider dans cette voie mais ca risque d'être pas très facile à comprendre si tu débute.

hmm recursivement attends vais prendre un Dico , en effet je debut I AM A NOOB mais j'aime coder et voir que ca fonctionne surtout. En fait c'est devenu mon DADA bien plus que Diablo 3.
Lol

Si tu obtient tes données à partir d'une BD, On peut s'arrenger pour que ton SGBD te donne tes ''node'' presque deja tout fait.

Ya aussi peut-etre moyen de faire l'équivalent en Linq mais je m'y connait pas assez. Reste à voir ce que Sankasss en pense.

Je pompe mes tables d'origines d'une base access que je fournit au fur et a mesure Reprenant l'extraction d'un AS400 par un soft fait maison d'un gars qui part a la retraite.
L'origine de tous ça c'est que je suis à la base automaticien, j'ai fait 10 ans de maintenance dans une grosse sidérurgie. J'ai eu le flair de partir avant que ca s’écroule et donc j'arrive dans une boit qui veut un soft de type GMAO sans méme savoir ce que c'est ni leur besoin.
Donc j’entreprends de faire une maquette en VB.net ( en me disant c'est bon de s'instruire). Donc suis pas un pro de vb.net ni de SQL ( viens de m'offrir un bouquin avec des exos pour piger le truc en SQL, et une formation pour le VB). Ouais ouais suis un peu timbré mais les Jvideos m'ennuient de plus en plus et je passe donc mon temps la dessus quand je peux.

Tout ça pour dire faut être un peu patient pour que je pige les concepts.

donc revenons a mes moutons , SQL obligation pour faire du VB?
Bon aller vais remmettre mes mimines dans le cambouis

Okay, merci pour les explications :p


Si je comprend bien tu veux faire un treeview qui va t'Afficher la hiérarchie de tes données.

Genre

A
|-aa
|--|--tt
|--|--tu
|--ab
|--|--st
|--|--su
B
|-bb
|--|--uu
|--|--ur

Citation:

---

Envoyé par Ashireon

hmm recursivement attends vais prendre un Dico

---

En fait l'avantage d'une récursivité, c'est que peut importe le nombre de niveau de node, elle ressortira le bon schéma à utiliser.
C'est en fait un système qui se rappelle tant qu'il y a des sous groupe ou tant que l'on a pas atteint une profondeur maximum (pour éviter les boucles infinies).

Citation:

---

Envoyé par wikipédia

Un algorithme est dit récursif s'il s'appelle lui-même.

---

Citation:

---

Envoyé par Ashireon

en effet je debut I AM A NOOB mais j'aime coder et voir que ca fonctionne surtout. En fait c'est devenu mon DADA bien plus que Diablo 3.
Lol

---

:ccool:

Citation:

---

Envoyé par Saintelaitlait

Si tu obtient tes données à partir d'une BD, On peut s'arrenger pour que ton SGBD te donne tes ''node'' presque deja tout fait.

Ya aussi peut-etre moyen de faire l'équivalent en Linq mais je m'y connait pas assez. Reste à voir ce que Sankasss en pense.

---

La solution que j'avais proposée tenait compte de la structure actuel de la base de donnée. Pour faire de la récursivité dans la base de donnée il faudrait qu'une FK pointe sur la PK ce qui n'est pas le cas ici (Voir lien).

Si Ashireon a envie de se lancer dans le récursif, il faudrait changer la structure de la BD...

Moi je suis pret à apprendre TOUT.

En fAit la premiere colonne n'apparait pas puisqu'elle est trie par un combobox

selection 1 combobox fera apparaitre un treeview

aa
|--tt
|--tu
ab
|--st
|--su

par exemple

Bon peu importe si tu trie avec un combobox au début, aussi bien de faire ta collection de nodes tout de suite.

Certes, comme la dit Sankassss, ton schéma de BD actuel ne permet pas de faire des requête récursive.

Toutefois, si ta structure n'es pas appellée à changé on peut très bien s'en sortir avec du Linq. Et probablement qu'on arriverais au même résultat en SQL. Donc à toi de choisir.

PS : En Linq c'est ultra simple je vien de le taper.

Citation:

---

Envoyé par Ashireon

Moi je suis pret à apprendre TOUT.

---

Dans ce cas fait du Linq comme Saintelaitlait te le conseil, comme marqué dans ma signature, c'est puissant et c'est plus beau :P
C'est bien de le connaitre, on peut faire énormément de chose avec...

Avec Linq j'arrive a ca.

JE sais c'Est bidon j'Ai concaténé dans des String mais c'Est pour montrer l'Exemple.

http://img15.hostingpics.net/pics/152270node.gif

y a un bon tuto pour linq to objects ? Je vais tenter de faire kk chose avec cet outil la du coup

bon j'ai reussi a transferer ma colonne dans une variable tableau

Code:

---

1 2 3 4 5 6

X = tbl01.Rows.Count - 1 Dim Tab(X) As String For a As Integer = 0 To X Tab(a) = tbl01.Rows(a).Item(1).ToString Next

---

il faut que je vire les doublons du tableau à présent

Si tu veux je vais t'expliquer ce que j'ai fait.

Premièrement, une classe node

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Class node Public nom As String Public parent As String   Public Sub New(ByVal _nom As String, ByVal _parent As String) nom = _nom parent = _parent End Sub End Class

---

Ensuite,

Ta table contient

A | aa | tt
A | aa | tu
A | ab | st
A | ab | su
B | bb | uu
B | bb | ur

Premièrement, j'ai récupérer les différente relations qui existe dans ton premier niveau, soit

A | aa
A | aa
A | ab
A | ab
B | bb
B | bb

Et j'ai pris seulement une occurence de chaque.

J'Ai donc fait un select des deux première colonne, avec un group by sur les deux.

En Linq ca donne :
("1") et ("2") représente les noms que j'ai donné au colonnes de ma datatable

Code:

---

1 2 3 4

Dim query = From row In dt.AsEnumerable _ Group By Parent = row.Field(Of String)("1"), child = row.Field(Of String)("2") Into count = Count()

---

Et j'ai fait pareil pour le deuxième niveau de hiérarchie dans ta table. Tu fait exactement la même chose, dans une nouvelle variable évidemment, et tu décale les colonnes.

Code:

---

1 2 3 4

Dim query2 = From row In dt.AsEnumerable _ Group By parent = row.Field(Of String)("2"), child = row.Field(Of String)("3") Into count = Count()

---

C'est clair jusqu'ici?

PS: N'oublie pas :

Code:

---

1 2	Imports System.Linq

---

Ensuite,

Comme tu as surement créer ta classe node en te basant sur mon précédent message, tu va pouvoir créer une variable list(of node), elle contiendra tout tes noeuds.

Code:

---

1 2	Dim nodeList As New List(Of node)

---

Grace à Linq, tes variable query et query2 contiennent un résultat de requête. Tu va pouvoir itérer dans cette collection et accéder au valeurs contenues.

Pour ce faire, un for each fera très bien l'affaire.

Tu boucle dans query, et pour chaque 'résultat de requête', tu instancie un nouveau node.

Code:

---

1 2 3 4 5 6 7 8 9

'For each pour parcourir la première requête Linq For Each ret In query nodeList.Add(New node(ret.child, ret.Parent)) Next 'Un autre for each pour la deuxième requête Linq. For Each ret In query2 nodeList.Add(New node(ret.child, ret.parent)) Next

---

J'espère que tu as remarqué que ret.child et ret.parent font référence au Group By que l'on a fait dans la requête Linq :ccool:

Un coup ceci fait, nodeList devrait contenir chaque noeud de ta hiérarchie.

J'attend ton signal pour continuer :)

Amuse toi avec tout ca, essaie de bien comprendre ce que tu fait.

Demain si tu te sent frais et dispo, on s'attaquera à la génération de ton treeview à l'Aide de la récursivité!

Erf on se reverra pas sur le web avant Lundi car Week end oblige ... femme vouloir moi et moi être gentil. je vais deja etudier ce que tu as fait pour bien tout comprendre

Toi gentil de rester avec femme a toi.

Bon apprivoisement de Linq.

Fait signe dès que tu est dispo pour travailler la récursivité. Je passe ici au moin 40 fois par jour ( la semaine ) donc je devrait pouvoir répondre.

Bon j'ai fait tout ce que tu as dis.
Mais je dois specifier quelque chose sinon ca va pas faire ce que je veux. Je vais eclaircir le resultat voulu.

En fait j'ai une table content les infos suivate Charge d'affaire / Chantier /N° contrat / Libelle contrat

je fais un premier tri sur Chargé d'affaire via ma comboboite car si je fait un triview sur la totalité et que je fais mon expand All ca va faire un sacre arbre.

donc je trie via un dataview et je renvoie dans une nouvelle datatable trié par le CA selectionné par la combobox

Donc j'ai un niveau en moin

donc le resultat voulu
Chantier A
|
-- N° Contrat1 & libelle1
|
-- N° Contrat2 & libelle2
Chantier B
|
-- N° Contrat144 & libelle144
|
-- N° Contrat225 & libelle225

donc faut que je concatène les deux derniers champ

sinon je decortique pour comprendre le langage Linq

Juste pour votre apprentissage, j'ai vite fait une solution avec DataView.ToTable :

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

Public Class Form1 Dim dt As DataTable   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load dt = New DataTable dt.Columns.Add("MaColonne1") dt.Columns.Add("MaColonne2") dt.Columns.Add("MaColonne3") dt.Rows.Add(New String() {"1", "2", "5"}) dt.Rows.Add(New String() {"1", "2", "2"}) dt.Rows.Add(New String() {"1", "3", "2"}) dt.Rows.Add(New String() {"2", "1", "1"}) dt.Rows.Add(New String() {"3", "2", "3"}) dt.Rows.Add(New String() {"3", "3", "2"}) dt.Rows.Add(New String() {"4", "1", "1"})     Dim tableCol1 As DataTable = dt.DefaultView.ToTable(True, New String() {"MaColonne1"}) ComboBox1.DataSource = tableCol1 ComboBox1.DisplayMember = "MaColonne1" ComboBox1.ValueMember = "MaColonne1"   ComboBox1.SelectedIndex = 0   End Sub   Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged TreeView1.Nodes.Clear()   dt.DefaultView.RowFilter = "MaColonne1 = '" & ComboBox1.Text & "'" Dim tableCol2 As DataTable = dt.DefaultView.ToTable(True, New String() {"MaColonne2"}) For Each row2 As DataRow In tableCol2.Rows Dim nodeNiv1 As TreeNode = TreeView1.Nodes.Add(row2("MaColonne2")) Dim view3 As New DataView(dt) view3.RowFilter = "MaColonne1 = '" & ComboBox1.Text & "' and MaColonne2 = '" & row2("MaColonne2") & "'" Dim tableCol3 As DataTable = view3.ToTable(True, New String() {"MaColonne3"}) For Each row3 As DataRow In tableCol3.Rows nodeNiv1.Nodes.Add(row3("MaColonne3")) Next Next End Sub End Class

---

En effet, c'Est cool.

J'aurais pas penser de le faire comme ca.

C'est moin compliqué à comprendre que la récursivité pour quelqu'un qui commence je crois. C'est surtout plus simple de garder le contrôle.

Car je vais dire comme mon premier prof d'info ma dit : Pour se lancer dans la récursivité, faut avoir la Foi :aie:

Disons que la récursivité est excellente pour certains problèmes.
Dans un projet de fin d'année j'ai du la maîtriser pour faire une "intelligence artificielle" de résolution de jeux de dame avec l'algorithme alpha/beta (D'ailleurs j'avais modifié la page wikipédia qui contenait une erreur ^^).
Après ce projet je ne pensais plus qu'en récursivité. Résultat, je me suis largement compliqué la vie dans mon premier petit projet au boulot en voulant appliquer la récursivité alors qu'une seul boucle suffisait. il est 10 fois plus compliqué à comprendre.

Donc bien faire attention de ne pas en abuser.
Mais attention, dans certain cas elle simplifie grandement le code aussi...

Je conseillerais à Ashireon de bien maîtriser les bases avant de vouloir se lancer là dedans. Quand tu sera près, fait toi un projet simpa, comme le jeux de dame, c'est pas trop compliqué, c'est sympa pour bien comprendre le récursif et il y a plein d'exemple sur le net.
:pc:

Bon je suis de retour de Week End
J'aimerai donc concatener 2 colonnes de mon datatable? qui seront au final la colonne du node enfant.
Y a t'il une instruction en Linq ou dois je le faire en vb avec un for each ?
Merci

Bon je ne me suis pas cassé la tete j'ai cree une colonne calculé dans ma base d'origine. donc j'ai ma colonne deja formatée pour les nodes enfants et ma colonne pour les nodes parents

Bon voila ou j'en suis
j'ai réussi a générer un treview avec uniquement tous les noeuds parents selon la selection du combobox

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim Nme As String = Convert.ToString(ComboBox1.SelectedItem.ToString.Substring(0, 3)) 'récupération des initiales Dim Dtview1 As New DataView Dim tbl01 As New DataTable Dim x As Integer   TreeView1.Nodes.Clear()   With Dtview1 .Table = DBGMAODataSet.Tables("contrat") .RowFilter = "[Chargé d'affaires] ='" & Nme & "'" .Sort = "Chantier,N° contrat ASC" End With tbl01 = Dtview1.ToTable     X = tbl01.Rows.Count - 1 Dim Tab(X) As String For a As Integer = 0 To X Tab(a) = tbl01.Rows(a).Item(1).ToString Next Dim lg1 As Integer = Tab.Length Dim requete3 = Tab.Distinct() Dim z As Integer = requete3.Count   For y As Integer = 0 To z - 1 TreeView1.Nodes.Add(New TreeNode(requete3(y))) Next   Dim query = From row In tbl01.AsEnumerable _ Group By Parent = row.Field(Of String)("Chantier"), child = row.Field(Of String)("N°libellé") Into count = Count()   Dim nodeList As New List(Of node)   For Each ret In query nodeList.Add(New node(ret.child, ret.Parent)) Next   TreeView1.Sort() TreeView1.ExpandAll()     End Sub

---

je voudrais a présent insérer les nœuds enfant selon les requêtes que saintelaitlait à faite est ce possible ?

Bon je suis arrivé par mes moyens et avec tous vos conseill les tutos le net etc..

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim Nme As String = Convert.ToString(ComboBox1.SelectedItem.ToString.Substring(0, 3)) 'récupération des initiales Dim Dtview1 As New DataView Dim tbl01 As New DataTable Dim x As Integer   TreeView1.Nodes.Clear()   With Dtview1 .Table = DBGMAODataSet.Tables("contrat") .RowFilter = "[Chargé d'affaires] ='" & Nme & "'" .Sort = "Chantier,N° contrat ASC" End With tbl01 = Dtview1.ToTable     X = tbl01.Rows.Count - 1 Dim Tab(X) As String For a As Integer = 0 To X Tab(a) = tbl01.Rows(a).Item(1).ToString Next Dim requete3 = Tab.Distinct() Dim z As Integer = requete3.Count   For y As Integer = 0 To z - 1 TreeView1.Nodes.Add(New TreeNode(requete3(y)))   Dim tablex As New DataTable Dim dtvi2 As New DataView Dim str01 As String = Convert.ToString(requete3(y))   With dtvi2 .Table = tbl01 .RowFilter = "[Chantier]='" & str01 & "'" End With   tablex = dtvi2.ToTable Dim xx As Integer = tablex.Rows.Count - 1 For zz As Integer = 0 To xx TreeView1.Nodes(y).Nodes.Add(tablex.Rows(zz).Item(5)) Next     Next   TreeView1.Sort() TreeView1.ExpandAll()     End Sub

---

Certes ça l'air d'être lourd pour des pros mais en tous ca cela marche.
Sauf que j'ai une erreur mais je fait un autre post pour cela.
L'erreur n'est pas systématique c'est un plantage car j'ai un quote parfois dans mes strings ' ce que n'aime pas vb apparement

Salut,

Tant mieux si ca fonctionne.

Juste un petit conseil,

Avant de commencer à ajouter des nodes, fait un treeView.beginUpdate() et un .endUpdate() quand tu as fini.

Ceci suspend le rafraichissement du dessin de l'arborescence. Donc ca devrait être plus rapide.

Perso, sur un treeview de 6 voir 7000 mille éléments ca paraît énormément.

Bonne chance!

EDIT: 7000 mille ca fait beaucoup, 7000 devrait nous satisfaire :aie:

ok je te remercie du conseil schtroumpf a lunettes :ccool:

sinon ta solution en linq m’intéresse toujours , surtout que je vais étudier un problème d'une arborescence a 7 ou 8 niveau ou j'ai plus de 2000 lignes a trier.

Donc avec linq ca sera certainement plus simple surtout si je comprends la partie finale

Tu n'as qu'a créer une nouvelle discussion sur le forum et on t'expliquera comment aborder ton problème à 7-8 niveaux.