Remplir treeview avec un datatable

Version imprimable

Bonjour, je tente de créer un petit utilitaire qui nécessite un treeview pour une lecteur simplifié (j'ai essayé le datagrid mais il manque de la lisibilité).
Pour ce faire j'ai intérrogé notre amis Google et j'ai trouvé ce tuto :

http://www.authorcode.com/create-tre...-using-vb-net/

Malheureusement je ne comprends pas comment l'auteur lie la deuxième partie de son code à sa DataTable.

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
 
    Public Sub BuildTree(ByVal dt As DataTable, ByVal trv As TreeView, ByVal expandAll As [Boolean])
        ' Clear the TreeView if there are another datas in this TreeView
        trv.Nodes.Clear()
        Dim node As TreeNode
        Dim subNode As TreeNode
        For Each row As DataRow In dt.Rows
            'search in the treeview if any country is already present
            node = Searchnode(row.Item(0).ToString(), trv)
            If node IsNot Nothing Then
               'Country is already present
                subNode = New TreeNode(row.Item(1).ToString())
                'Add cities to country
                node.Nodes.Add(subNode)
            Else
                node = New TreeNode(row.Item(0).ToString())
                subNode = New TreeNode(row.Item(1).ToString())
                'Add cities to country
                node.Nodes.Add(subNode)
                trv.Nodes.Add(node)
            End If
        Next
        If expandAll Then
            ' Expand the TreeView
            trv.ExpandAll()
        End If
    End Sub

Si une âme charitable pouvait m'expliquer, je lui en serais reconnaissant :)

Snowjia

Edit : Je bosse sous Visual Studio 2010.

Code:

1
2
 
 node = Searchnode(row.Item(0).ToString(), trv)

avec

Code:

1
2
3
4
5
6
7
8
 
Private Function Searchnode(ByVal nodetext As String, ByVal trv As TreeView) As TreeNode
        For Each node As TreeNode In trv.Nodes
            If node.Text = nodetext Then
                Return node
            End If
        Next
    End Function

cherche dans le premier niveau de la TreeView la valeur de nodetext =row.Item(0).ToString() qui est Country .
-------------------------------

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 If node IsNot Nothing Then
               'Country is already present
                subNode = New TreeNode(row.Item(1).ToString())
                'Add cities to country
                node.Nodes.Add(subNode)
            Else
                node = New TreeNode(row.Item(0).ToString())
                subNode = New TreeNode(row.Item(1).ToString())
                'Add cities to country
                node.Nodes.Add(subNode)
                trv.Nodes.Add(node)
            End If

node IsNot Nothing
ça veux dire que contry de la city est déjà dans la Treeview donc il suffit que j'ajoute la City dans le node (qui représente contry )

Code:

1
2
3
4
'Country is already present
                subNode = New TreeNode(row.Item(1).ToString())
                'Add cities to country
                node.Nodes.Add(subNode

else

Code:

1
2
3
4
5
6
7
  Else
                node = New TreeNode(row.Item(0).ToString())
                subNode = New TreeNode(row.Item(1).ToString())
                'Add cities to country
                node.Nodes.Add(subNode)
                trv.Nodes.Add(node)
            End If

sinon (contry n'existe pas dans la teeview ) il crée le node dans le niveau 1 (contry ) avec

Code:

1
2
 
 node = New TreeNode(row.Item(0).ToString())

et il ajoute dedans le node de city

Code:

1
2
3
4
 
  subNode = New TreeNode(row.Item(1).ToString())
                'Add cities to country
                node.Nodes.Add(subNode)

et il ajoute le node (contry ) a la TeeView

Code:

1
2
 
  trv.Nodes.Add(node)

j’espère que j'ai bien expliqué

04/07/2013, 12h09
azstar
si tu veux remplir ton TreeView tu pour faire une simple
Code:

1 2 For Each row As DataRow In dt.Rows
et avant il faut savoir la structure (exemple :contry /City )
04/07/2013, 21h52
Snowjia

Merci :) tes explications sont claires mais maintenant je comprends pas comment choisir la bonne DataTable :
Je suppose que c'est dans la déclaration, avec les attributs mais je ne comprends pas.

Code:

Public Sub BuildTree(ByVal dt As DataTable, ByVal trv As TreeView, ByVal expandAll As [Boolean])

Avec :

Code:

ByVal dt As DataTable

je suppose qu'il faut remplacer le dt par le nom de ma dataTable, mais je ne n'arrive pas à l'utiliser avec le Treeview.

Snowjia
04/07/2013, 23h00
azstar

DataTable de ton Dataset.

tu peux me donner la structure des tables qui tu veux utiliser pour alimenter la TreeView
04/07/2013, 23h13
Snowjia

Biensur, la structure de ma DataTable ( nommé DataTable et mis à jour par access) est :
nom, code_site, ID, type_machine, nom_site
et je souhaiterai obtenir un treeview de ce genre :

nom_site1
- nom1
- nom2
- nom3
nom_site2
- nom4
- nom5
nom_site3
- nom6

De façon à avoir une liste de site avec chaque une de leurs machines.

pour le treeview j'utilise que deux colonnes.

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
  Public Sub BuildTree(ByVal dt As DataTable, ByVal trv As TreeView, ByVal expandAll As [Boolean])
        ' Clear the TreeView if there are another datas in this TreeView
        trv.Nodes.Clear()
        Dim node As TreeNode
        Dim subNode As TreeNode
        For Each row As DataRow In dt.Rows
            'search in the treeview if any country is already present
            node = Searchnode(row.Item("nom_site").ToString(), trv) '
            If node IsNot Nothing Then
                'Country is already present
                subNode = New TreeNode(row.Item("nom").ToString())
                'Add cities to country
                node.ChildNodes.Add(subNode)
 
            Else
                node = New TreeNode(row.Item(0).ToString())
                subNode = New TreeNode(row.Item(1).ToString())
                'Add cities to country
                node.ChildNodes.Add(subNode)
                trv.Nodes.Add(node)
            End If
        Next
        If expandAll Then
            ' Expand the TreeView
            trv.ExpandAll()
        End If
    End Sub
    Private Function Searchnode(ByVal nodetext As String, ByVal trv As TreeView) As TreeNode
        For Each node As TreeNode In trv.Nodes
            If node.Text = nodetext Then
                Return node
            End If
        Next
    End Function

Merci j'ai des erreurs ligne 13 et 19 :
childnodes n'est pas un membre de "System.windows.form.treenode
j'ai essayer avec

Code:

node.Nodes.add(subNode)

mais le treeview reste vierge

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
 
    Public Sub BuildTree(ByVal dt As DataTable, ByVal trv As TreeView, ByVal expandAll As [Boolean])
        ' Clear the TreeView if there are another datas in this TreeView
        trv.Nodes.Clear()
        Dim node As TreeNode
        Dim subNode As TreeNode
        For Each row As DataRow In dt.Rows
            'search in the treeview if any country is already present
            node = Searchnode(row.Item("nom_site").ToString(), trv) '
            If node IsNot Nothing Then
                'Country is already present
                subNode = New TreeNode(row.Item("nom").ToString())
                'Add cities to country
                node.Nodes.Add(subNode)
 
            Else
                node = New TreeNode(row.Item("nom_site").ToString())
                subNode = New TreeNode(row.Item("nom").ToString())
                'Add cities to country
                node.Nodes.Add(subNode)
                trv.Nodes.Add(node)
            End If
        Next
        If expandAll Then
            ' Expand the TreeView
            trv.ExpandAll()
        End If
    End Sub
    Private Function Searchnode(ByVal nodetext As String, ByVal trv As TreeView) As TreeNode
        For Each node As TreeNode In trv.Nodes
            If node.Text = nodetext Then
                Return node
            End If
        Next
    End Function

voici un screen de ma source de donnée (je ne suis pas certain de bien l'avoir faite )

http://img27.imageshack.us/img27/3679/9s32.png

je me pencherai sur le treeview samedi. La je vais fêter mon bac :)
Snowjia

1 pièce(s) jointe(s)

Vérifier que ton DataTable contient des données.

voila j'ai testé le code avec

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
 
 Public Sub BuildTree(ByVal dt As DataTable, ByVal trv As TreeView, ByVal expandAll As [Boolean])
        ' Clear the TreeView if there are another datas in this TreeView
        trv.Nodes.Clear()
        Dim node As TreeNode
        Dim subNode As TreeNode
        For Each row As DataRow In dt.Rows
            'search in the treeview if any country is already present
            node = Searchnode(row("nom_site").ToString(), trv) '
            If node IsNot Nothing Then
                'Country is already present
                subNode = New TreeNode(row("nom").ToString())
                'Add cities to country
                node.Nodes.Add(subNode)
 
            Else
                node = New TreeNode(row("nom_site").ToString())
                subNode = New TreeNode(row("nom").ToString())
                'Add cities to country
                node.Nodes.Add(subNode)
                trv.Nodes.Add(node)
            End If
        Next
        If expandAll Then
            ' Expand the TreeView
            trv.ExpandAll()
        End If
    End Sub
    Private Function Searchnode(ByVal nodetext As String, ByVal trv As TreeView) As TreeNode
        For Each node As TreeNode In trv.Nodes
            If node.Text = nodetext Then
                Return node
            End If
        Next
        Return Nothing
 
    End Function

voila une fonction juste pour tester mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function GetTable() As DataTable
        ' Create new DataTable instance.
        Dim table As New DataTable
        ' Create two typed columns in the DataTable.
        table.Columns.Add("nom", GetType(String))
        table.Columns.Add("nom_site", GetType(String))
 
        table.Rows.Add("gmail", "google.com")
        table.Rows.Add("googleplus", "google.com")
        table.Rows.Add("flick", "yahoo.fr")
        table.Rows.Add("mail", "yahoo.fr")
        table.Rows.Add("play", "google.com")
        Return table
    End Function

et voila l'appel pour le test

Code:

1
2
Dim dt As DataTable = GetTable()
        BuildTree(dt, TreeView1, False)

bon courage et félicitation pour ton BAC

voila l'aperçu

08/07/2013, 20h39
Snowjia

Merci :)

J'ai utilisé votre code et approfondi mes connaissances sur les datasets et datatables pendant les deux derniers jours ... :D je suis arrivé à mes fins. Merci beaucoup.
Je passe le sujet en Résolu, en espérance qu'il puisse aider d'autres débutants.
Snowjia