zdz16
Messages postés5Date d'inscriptionsamedi 31 janvier 2015StatutMembreDernière intervention 8 février 2015
-
7 févr. 2015 à 22:58
zdz16
Messages postés5Date d'inscriptionsamedi 31 janvier 2015StatutMembreDernière intervention 8 février 2015
-
8 févr. 2015 à 05:31
Bonjour à tous et au forum.
Je sollicite votre aide pour créer un treeview à partir d'une table dont la structure comprend les trois colonnes suivantes :
- NodPar : Noeud parent
- NodSeq: Séquence du Noeud fils
- NodFls : Noeud Fils.
Il est important de savoir que NodFls peut devenir un NodPar avec d'autres NodFls et en considérant que le noeud 0000 est la rootNode. Par exemple:
Mon objectif est de réaliser un menu via la treeview
Ça y est, j'ai réussi à faire ce que je veux? Voici le code:
' l'appel se fait par LoadMnu("0000")
Sub LoadMnu(sMnuCod As String) Dim ParNod As TreeNode Dim FlsNod As TreeNode
ParDst = GetMnu(sMnuCod) 'charge DatSet avec table TabMnu For Each ParRow In ParDst.Tables("TabMnu").Rows
ParNod = New TreeNode(ParRow("MnuPar").ToString()) Me.trvMnu.Nodes.Add(ParNod) FlsNod = New TreeNode(ParRow("MnuFls").ToString) ParNod.Nodes.Add(FlsNod)
addFils(FlsNod, ParRow("MnuFls").ToString())
Next End Sub
Sub addFils(RootNode As TreeNode, sFlsNod As String)
Dim FlsNod As TreeNode Dim FlsDst As DataSet Dim FlsRow As DataRow
FlsDst = GetMnu(sFlsNod) 'Charge DatSet avec les données de sFlsNod dans TabMnu
For Each FlsRow In FlsDst.Tables("TabMnu").Rows 'Parcour le DataSet FlsNod = New TreeNode(FlsRow("MnuFls").ToString) 'Créer le Noeud Fils RootNode.Nodes.Add(FlsNod) 'L'ajouter au noeud Pere addFils(FlsNod, FlsRow("MnuFls").ToString()) 'Faire le traitement pour le Noeud fils Next