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
| Private Sub chargementTreeView()
'Récupération des produits et affichage dans le treeview
If DGVModele.SelectedCells.Count > 0 Then
TreeViewProduits.Nodes.Clear()
TreeViewProduits.Refresh()
'création des noeuds racines
listeProduits = CtrlOngletCreation.AffichageProduitsMX()
For Each p As Parametre In listeProduits
TreeViewProduits.Nodes.Add(New TreeNode(p.Equipement_LIB))
Next
'création des noeuds enfants
For Each tn As TreeNode In TreeViewProduits.Nodes
listeProduitsEnfant.Clear()
listeProduitsEnfant = CtrlOngletCreation.AffichageProduitsEnfant(tn.Text, CBLangue.SelectedValue, DGVModele.SelectedCells(0).Value)
For Each p As ProduitMX In listeProduitsEnfant
tn.Nodes.Add(p.Caract_LIB)
Next
Next
End If
End Sub |