Treeview 6/7 Niveaux

**Ashireon** · 28/08/2012, 20h00

Treeview a 7 niveaux
ci joint le ficher excel qui a servit a construire la table
une colonne supplementaire a ete ajoute a la table du 'nom de N°Contrat
toutes les autres colonnes s'appellent desormais NIVEAU 0 à NIVEAU 6
il n'ya pas de clé primaire sur la table pour le moment

j'ai creer la meme architecture que mon conseiller SainteLaitlait sur mon autre post.
une fois tous les noeuds remplis dans le nodelist je ne comprends pas ce que j'en fait ??

**Sankasssss** · 28/08/2012, 20h30

Bonjour Ashireon,

Envoyé par Ashireon

j'ai creer la meme architecture que mon conseiller SainteLaitlait sur mon autre post.
une fois tous les noeuds remplis dans le nodelist je ne comprends pas ce que j'en fait ??

Pourrais-tu préciser ce que tu as déjà et ce qui ne va pas car je ne comprend pas la demande.

**Ashireon** · 28/08/2012, 21h06

oui bien entendu

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
  Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        Dim number As String = TextBox1.Text
 
        Dim DatV1 As New DataView
        Dim TabV1 As New DataTable
 
        With DatV1
            .Table = DBGMAODataSet.Tables("GESTION EQUIPEMENT")
            .RowFilter = "N°Contrat ='" & number & "'"
        End With
 
        TabV1 = DatV1.ToTable
 
 
 
 
 
        Dim query = From row In TabV1.AsEnumerable _
           Group By Parent = row.Field(Of String)("NIVEAU 0"), child = row.Field(Of String)("NIVEAU 1")
           Into count = Count()
        Dim query2 = From row In TabV1.AsEnumerable _
            Group By parent = row.Field(Of String)("Niveau 1"), child = row.Field(Of String)("NIVEAU 2")
            Into count = Count()
        Dim query3 = From row In TabV1.AsEnumerable _
            Group By parent = row.Field(Of String)("Niveau 2"), child = row.Field(Of String)("NIVEAU 3")
            Into count = Count()
        Dim query4 = From row In TabV1.AsEnumerable _
            Group By parent = row.Field(Of String)("Niveau 3"), child = row.Field(Of String)("NIVEAU 4")
            Into count = Count()
        Dim query5 = From row In TabV1.AsEnumerable _
            Group By parent = row.Field(Of String)("Niveau 4"), child = row.Field(Of String)("NIVEAU 5")
            Into count = Count()
        Dim query6 = From row In TabV1.AsEnumerable _
            Group By parent = row.Field(Of String)("Niveau 5"), child = row.Field(Of String)("NIVEAU 6")
            Into count = Count()
 
        Dim nodeList As New List(Of node)
 
 
        For Each ret In query
            nodeList.Add(New node(ret.child, ret.Parent))
        Next
        For Each ret In query2
            nodeList.Add(New node(ret.child, ret.parent))
        Next
        For Each ret In query3
            nodeList.Add(New node(ret.child, ret.parent))
        Next
        For Each ret In query4
            nodeList.Add(New node(ret.child, ret.parent))
        Next
        For Each ret In query5
            nodeList.Add(New node(ret.child, ret.parent))
        Next
        For Each ret In query6
            nodeList.Add(New node(ret.child, ret.parent))
        Next
 
 
 
    End Sub

j'ai également fait cela

Code :

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

1
2
3
4
5
6
7
8
9
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

le probleme c'est que du coup j'ai plus de 4000 nodes creer dans le nodelist
mais il va falloir que je fasse des distincts ?
il me semble

**Ashireon** · 29/08/2012, 14h33

j'ai supprimé les espaces tel que l'on m'avait conseiller dans un autre post.( pour les noms des colonnes).

Je ne vois pas ce que je peut en faire du node list???
ne vaudrait il pas mieux de faire un node list par niveau ???

**Sankasssss** · 29/08/2012, 16h16

Un group by c'est l'équivalent d'un distinct.

Le seul problème c'est qu'ici, tu ne tiens pas compte des noeud parent.
Donc chaque query de niveau inférieur devrait se faire dans la boucle pour pouvoir être filtrer via les valeurs de tous les query précédents... (un peut comme dans l'algo que j'avais donné dans la première discussion)

EDIT : Je ne suis pas sur d'avoir compris l'organisation et le code, faudrait que je regarde cela plus en profondeur mais je n'ai malheureusement pas le temps maintenant.

**Ashireon** · 29/08/2012, 16h24

ok je vais regarder ta propostion que tu avais faites si elle est plus accessible pour mon cas car je fume serieux.

Moi j'ai un cervelet ( petit cerveau mais costaud pouvant servir a bloquer une porte , un meuble bancale etc...)

je te remercie
j’étais également partie sur kk chose comme ma petite solution de l'autre post mais la j'ai des doublons partout dans le treeview donc a revoir

**Saintelaitlait** · 29/08/2012, 16h48

Salut,

La solution que j'Avais apportée sur l'autre discussion était viable dans une arborescence à deux trois niveaux.

Rendu à 7 voir 8 niveaux ca commence à faire relou

Tes données arrives de ou déjà? Une bd access?

Va falloir trouver un truc plus optimisé pour la gestion de plusieurs niveaux. Car un group by sur 7 paires de colonnes c'est pas propre

Ca va fonctionner certe, mais bon, tu comprend.

**Saintelaitlait** · 29/08/2012, 17h18

Bon je vais prendre en considération que tes données sont stockées sous la même forme que la dernière fois.

Soit :

CA 1 | a | aa | aaa | aaaa | aaaaa | aaaaaa | aaaaaaa
CA 1 | b | bb | bbb | bbbb | bbbbb | bbbbbb | bbbbbbb
CA 1 | c | cc | ccc | cccc | ccccc | cccccc | ccccccc
CA 1 | d | dd | ddd | dddd | ddddd | dddddd | ddddddd

Donc tout ces "Lettre" appartiennent au chargé d'affaire 1.

Disons qu'on applique la requête Linq à ce cas .

Code :

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

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()

On peut adapter ceci à ta table avec 8 niveaux sans retaper le code.

Met le dans une boucle for, avec le for each dedans.

Ca donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
   Dim nodeList As New List(Of node)
        Dim index As Integer = 0
 
        For i = 0 To dt.Columns.Count - 2
            index = i
            Dim query = From row In dt.AsEnumerable _
                      Group By Parent = row.Field(Of String)(index), child = row.Field(Of String)(index + 1)
                      Into count = Count()
 
            For Each ret In query
                nodeList.Add(New node(ret.child, ret.Parent))
            Next
        Next

Et un coup passer dans la fonction de hierarchie recursive ca donne :

Ca donne à peu près ce que tu recherche?

EDIT: Je vien de voir le fichier excel de ton premier post

je m'y met

**Ashireon** · 29/08/2012, 19h31

ok je te laisse regarder le fichier rien ne presse
merci bien

**Ashireon** · 29/08/2012, 20h08

la fonction de hierarchie recursive se presente comment ?

**Saintelaitlait** · 29/08/2012, 20h08

Salut!

Effectivement, mon idée n'est pas viable sur cette structure de données.

J'ai donc utilisée l'idée proposée par Sankassss.

Je confirme, c'est fonctionnel.

En attendant que j'aie terminé, essaie de voir comment appliquer son idée à ton cas

Et dit lui un gros merci

**Ashireon** · 29/08/2012, 20h19

euhh

Gros MERZZI SAnkass

**Sankasssss** · 29/08/2012, 20h22

De rien

Merci à Saintelaitlait de s'investir autant

**Saintelaitlait** · 29/08/2012, 20h44

Bon, j'Ai pas tout à fait terminer mais je vais te donner quelques indications pour que tu puisse avancer par toi-même.

Premièrement, les variables que j'Ai utilisées.

Code :

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

1
2
3
4
5
6
 
 Dim ds As New DataSet
        Dim connection As New OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;data source='C:\classeur1.xls';Extended Properties=Excel 8.0;")
Dim da As OleDb.OleDbDataAdapter
Dim errorMessage As String = ""
Dim n0, n1, n2, n3, n4, n5, n6, n7 As TreeNode

2- Ramasse tout tes données dans le fichier excel.

J'ai procédé comme suit :

Code :

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

1
2
3
4
5
6
7
8
 
  Try
            da = New OleDb.OleDbDataAdapter("select * from [Feuil1$]", connection)
            da.TableMappings.Add("Table", "Ashireon")
            da.Fill(ds)
        Catch ex As Exception
            errorMessage = "Erreur lors de la lecture du fichier excel"
        End Try

Ensuite, ca se complique un peu.

1- Créer ta racine. Pour l'exemple, j'ai utiliser une racine que j'ai nommée .............ROOT

Donc

Code :

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

1
2
3
 
n0 = New TreeNode("ROOT")
TreeView1.Nodes.Add(n0)

Sankassss a proposé d'utiliser .ToTable pour permettre un distinct, ainsi que l'utilisation des colonnes nécéssaires. ToTable est utilisable sur un dataView. Comme mes données sont dans une datatable, on passe par .defaultView.ToTable

2- Second niveau (qui correspond a niv1 dans ta feuille) qui est en fait le premier mais comme j'Ai ajouter ROOT c'Est le deuxième. M'enfin tu comprend j'imagine.

Code :

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

1
2
 
  For Each row1 As DataRow In ds.Tables(0).DefaultView.ToTable(True, ("niv1")).Rows

Chaque item de cette collection est un noeud. Donc :

Code :

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

1
2
3
 
n1 = New TreeNode(row1(0))
n0.Nodes.Add(n1)

Pour les niveaux suivant, il faut rajouter un .select pour filtrer les données.

Ca donne :

Code :

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

1
2
 
For Each row2 As DataRow In ds.Tables(0).DefaultView.ToTable(True, {"niv1", "niv2"}).Select("niv1='" & row1(0) & "'")

Donc, les items de niv2, qui ont dans niv1 la valeur de row1(0). Autrement dit, niv2 = le parent(noeud) qu'on traite en ce moment. Soit l'itération en cours de ta première boucle. Désolé pour l'Explication fouareuse, c'Est clair dans ma tête mais sur papier c'Est une autre histoire x)

Ensuite, chaque item sera un noeud enfant de n1, soit le noeud que tu vien de créer dans la première boucle.

Donc

Code :

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

1
2
3
 
n2 = New TreeNode(row2(1))
n1.Nodes.Add(n2)

Tu repète ces opérations jusqu'a ton dernier niveau. J'imagine que tu comprend que le .select du dernier niveau sera pas chic du tout. Et remarque bien aussi qu'à chaque nouveau niveau, une colonne de plus s'ajoute dans le .ToTable. CEci te permet de comparer et de rester dans la bonne "branche".

Ton arborescence va donc se construire d'une manière qui ressemble étrangement à une fonction récursive. Bâtir chaque branche, une par une, jusqu'au "bourgeon"

.

J'ai fait trois niveaux pour l'instant et ca donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
For Each row1 As DataRow In ds.Tables(0).DefaultView.ToTable(True, ("niv1")).Rows
	n1 = New TreeNode(row1(0))
	n0.Nodes.Add(n1)
	For Each row2 As DataRow In ds.Tables(0).DefaultView.ToTable(True, {"niv1", "niv2"}).Select("niv1='" & row1(0) & "'")
		n2 = New TreeNode(row2(1))
		n1.Nodes.Add(n2)
		For Each row3 As DataRow In ds.Tables(0).DefaultView.ToTable(True, {"niv1", "niv2", "niv3"}).Select("niv2='" & row2(1) & "' AND niv1='" & row1(0) & "'")
			n3 = New TreeNode(row3(2))
			n2.Nodes.Add(n3)
		Next
	Next
Next

Content?

**Saintelaitlait** · 29/08/2012, 20h47

Envoyé par Sankasssss

Merci à Saintelaitlait de s'investir autant

Question d'orgueil

Et surtout que j'aime bien me creuser la cervelle et apprendre de nouvelles manières de travailler

**Sankasssss** · 29/08/2012, 20h51

Le forum est la pour ça

**Saintelaitlait** · 29/08/2012, 20h52

PS: J'ai utiliser un fichier excel dans lequel j'Ai transfère tes données. Pour m'éviter de bizouiller avec les titres et tout et tout.

Je te laisse t'amuser avec cette partie

**Saintelaitlait** · 29/08/2012, 20h54

Envoyé par Sankasssss

Le forum est la pour ça

Il rempli son rôle à perfection donc

**Ashireon** · 29/08/2012, 21h33

Je te remercie saintelailat je vais regarde cela de suite , sachant que je n'ai pas besoin de la partie ou je dois créer un connexion, car j'ai rapatrié les données dans une table Acess qui est lié au projet , j'ai recuperé la table pour la mettre dans le dataset.
Dans access j'ai ajouter une colonne N° Contrat en fait car je devrais récupérer toutes les infos dans le projets final de tous les contrats.

Je cree le Root en tant que N° contrat pour ma part
Bon je fait tout ca je test et je montre le resultat

**Ashireon** · 29/08/2012, 21h56

J'ai transposer donc ton code

et j'ai ca pour l'essai de tri sur 3 niveau

La conversion du type 'DBNull' en type 'String' n'est pas valide. sur cette ligne

Code :

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