Discussion :

[Golzinne]

Bonjour,

je cherche un exemple complet de remplissage de treeview à partir de deux tables. J'ai une table client (avec 5 clients) et une table commande (liée par ComCliId = foreign key). Pour chaque client j'ai 6 commandes dans ma table commande.

J'aurais dans mon treeView mon root node intitulé "Tous" auquel seraient racrochés mes 5 noeuds clients et sur chaque noeud client, j'aurais mes 6 commandes de ce client.

J'ai trouvé un super exemple "TreeView Class" dans ".NET Framework Class Library" mais je bloque car ils "supposent" :

This example assumes you have a Customer object that can hold a collection of Order objects

et c'est là que ça coince car que veut dire "avoir un objet CLIENT qui peut gérer une collection d'objets COMMANDE" ?

Les exemples de TreeNode sont basés sur le même exemple et donc posent le même problème.

Quelqu'un a une idée ?

[graphicsxp]

Salut,
Une solution rapide qui marche mais que tu devras adapter selon tes besoins:

Tu crées une classe Client avec en Private ClientId et ClientName

Tu crées une classe Commande avec en Private CommandeId, ClientId, CommandName.

Tu récuperes tes enregistrements dans ta table Client et pour chaque enregistrement tu crée un objet de type Client. Tu crées un array de nodes à partir de tes clients:

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
Function GetClients() As TreeNode()
        Dim c As New Client
        dim dtClient as datatable
 
        'récupere ici tous les clients dans dtClients
 
        Dim ClientNodes() As TreeNode = New TreeNode() {}
        ReDim ClientNodes(dtClients.Rows.Count - 1)
 
        Dim count As Integer = 0
        For Each row  As datarow in  dtClients.row
           ClientNodes(count) = New TreeNode(row("ClientName"))
           ClientNodes(count).Tag = New Client(row("ClientId"), row.Item("ClientName").ToString)
           count += 1
        Next
        Return ClientNodes
    End Function

Tu boucles sur tous tes clients. Pour chaque client tu récupere les commandes dans la table Commande, tu crées un array de nodes pour les commandes de ce client

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
 
Public Function GetCommandes(ByVal c As Client) As TreeNode()
        Dim count As Integer = 0
        Dim dtCommandes as DataTable
 
        'ici tu récuperes toutes les commandes correspondant au client
        'passé en parametre à la fonction GetCommandes. Tu les stockes
        'dans le datatable Commandes
 
        count = 0
        Dim CommandeNodes() As TreeNode = New TreeNode() {}
        ReDim CommandesNodes(dtCommandes.Rows.Count - 1)
            For Each row As DataRow In dtCommandes.Rows
                CommandeNodes(count) = New TreeNode((row.Item("CommandName").ToString, CInt(detailrow("CommandId"))))
                CommandeNodes(count).Tag = New Commande(c.ClientId, row.Item("CommandName").ToString ,Convert.ToInt16(row.Item("CommandId")))
                count += 1
            Next
        Return CommandNodes
    End Function

Pour contruire le tree:

Code :

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

1
2
3
4
Public Sub BuildClientTree()
        myTree.Nodes(0).Nodes.Clear()
        myTree.Nodes(0).Nodes.AddRange(GetClients)
 End Sub

Meme chose pour les commandes, tu boucles sur les nodes 'Clients' et tu ajoutes les child nodes en appelant GetCommands.

Tu noteras que j'ai utilisé la propriété .Tag des nodes pour stocker l'objet Client ou Commande, très utile lorsque tu cliques sur un node pour savoir de quel type il s'agit.

Bon courage.

[Golzinne]

Merci pour ce code,

je l'ai fais fonctionné (pour la partie création de client uniquement) . Il faut signaler qu'il faut absolument créer un noeud de base dans le tree, sinon il génère une erreur.

'Dim c As New Client générait également une erreur et je suppose que ce n'est pas utile (j'espère pas pour la partie commande).

Si je te comprends bien, dans le tag on peut stocker un objet ??? !!! (je l'utilisais en VB6 pour stocker un string structuré avec les clés des noeuds précédents) mais j'imagine que stocker un objet offre plus de possibilités...

Je teste la partie commande ce soir ou vendredi.

Voici toujours le code (presque) complet

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
Public Class myTreeFrm
    Inherits System.Windows.Forms.Form
    Dim dtClient As New DataTable
    'Dim c As New Client
 
 
    Public Class Client
        Private ClientId As Integer
        Private ClientName As String
        Sub New(ByVal myId As Integer, ByVal myName As String)
            ClientId = myId
            ClientName = myName
        End Sub
    End Class
    Function GetClients() As TreeNode()
 
 
        Dim ClientNodes() As TreeNode = New TreeNode() {}
        ReDim ClientNodes(dtClient.Rows.Count - 1)
 
        Dim count As Integer = 0
        For Each drCli As DataRow In dtClient.Rows
            ClientNodes(count) = New TreeNode(drCli("CliName"))
            ClientNodes(count).Tag = New Client(drCli("CliId"), drCli.Item("CliName").ToString)
            count += 1
        Next
        Return ClientNodes
    End Function
 
    Public Sub BuildClientTree()
        myTree.Nodes(0).Nodes.Clear()
        myTree.Nodes(0).Nodes.AddRange(GetClients)
    End Sub
 
 
    Private Sub myTreeFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        'récupere ici tous les clients dans dtClients 
        Me.daCny.Fill(dtClient)
        Call BuildClientTree()
    End Sub
End Class

[Golzinne]

re-bonsoir,



graphicsxp a écrit

Meme chose pour les commandes, tu boucles sur les nodes 'Clients' et tu ajoutes les child nodes en appelant GetCommands.

j'ai implémenter le code de la classe commande et une fonction:

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
Public Function GetCommandes(ByVal c As Client) As TreeNode()
        Dim count As Integer = 0
 
        Dim dtCommande As New DataTable
        Me.OleDbCom.CommandText = "SELECT ComId, ComDescr, ComCnyId FROM(ComTbl) WHERE(ComCnyId =" & c.getCliId & ")"
        Me.daCom.Fill(dtCommande)
 
        count = 0
        Dim CommandeNodes() As TreeNode = New TreeNode() {}
        ReDim CommandeNodes(dtCommande.Rows.Count - 1)
        For Each drCom As DataRow In dtCommande.Rows
            CommandeNodes(count) = New TreeNode((drCom.Item("ComDescr").ToString))
            CommandeNodes(count).Tag = New Commande(drCom("ComId"), drCom.Item("Comdescr").ToString, Convert.ToInt32(drCom.Item("ComCnyId")))
            count += 1
        Next
        Return CommandeNodes
    End Function

serait-ce abuser de te demander la ou les lignes pour "boucler" et implémenter la commande ?

merci

[graphicsxp]

Salut,

Il faut signaler qu'il faut absolument créer un noeud de base dans le tree, sinon il génère une erreur.

Oui, c'est normal, il ne faut pas oublié d'ajouter le 'root' node.
Je t'ai seulement donné une ébauche de code, a toi de le compléter, ce que tu as fais

Si je te comprends bien, dans le tag on peut stocker un objet ??? !

En effet, et cela peut s'avérer extremement pratique. Par exemple lors d'un clique sur un node, tu peux détecter son type et ouvrir un nouveau form en fonction de ca. Alternativement sur le click droit, tu peux afficher un context menu adapter au type d'objet stocké dans le tag.

serait-ce abuser de te demander la ou les lignes pour "boucler" et implémenter la commande ?

Oui, c'est abuser, car je suis en vacances
Non je plaisante, ca me dérange pas. Je suppose que ce que tu veux c'est le code pour ajouter les nodes Commandes aux nodes Clients, n'est ce pas? Dans ce cas fais quelquechose du genre: (non testé)

Code :

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

1
2
3
4
5
6
7
 
'Ici tu boucles sur les nodes 'Clients' appartenant au 'root' node.
For Each n as TreeNode in myTree.Nodes(0).Nodes
 If TypeOf(n.Tag) is Client Then
  n.Nodes.AddRange(GetCommandes(directcast(n.Tag, Client)))
 End If
Next

En espérant t'avoir aider a avancer.

@+

[Golzinne]

Pour du code non testé, c'est pas mal !

Copier, coller et ça fonctionne

Un super merci pour ton support

pour info, le code suivant fonctionne aussi puisque dans mon cas, je n'ai que des commandes au niveau 0

Code :

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

1
2
3
4
5
6
7
8
9
 
Public Sub BuildCommandeTree()
        For Each n As TreeNode In myTree.Nodes(0).Nodes
            'If TypeOf (n.Tag) Is Client Then
            'n.Nodes.AddRange(GetCommandes(DirectCast(n.Tag, Client)))
            n.Nodes.AddRange(GetCommandes(n.Tag))
            'End If
        Next
    End Sub

Merci, bonnes vacances et joyeux Noël