Rattachement treeviewRésolu

Question

Lu j'ai un prob de rattachement dans un treeview le sous se créé a chak fois mon treeview créér un sous noeud. Si vous pouviez trouver l'erreur.

Private Sub Form_Load()
        Set Db = DBEngine.OpenDatabase("z:\bd1.mdb")
        Call RemplirTV(TV)
End Sub

Private Sub RemplirTV(C1 As TreeView)
        Dim Rst As Recordset, NouveauG As String, AncienG As String, NodeX As Node, IndexGroup As Long
        C1.Nodes.Clear
        Set Rst = Db.OpenRecordset("Select * from pcseb order by group asc", dbOpenSnapshot)
        Set NodeX = C1.Nodes.Add(, , , "PC")
        While Not Rst.EOF
                NouveauG = Rst!Group
                If NouveauG <> AncienG Then
                        Set NodeX = C1.Nodes.Add(1, tvwChild, , Rst!Group)
                        C1.Nodes.Item(NodeX.Index).Tag = 1 & "|" & Rst!numéro
                        IndexGroup = NodeX.Index
                AncienG = Rst!Group
                End If
                Set NodeX = C1.Nodes.Add(IndexGroup, tvwChild, , Rst!Item)
                IndexGroup = NodeX.Index
                Rst.MoveNext
                
        Wend
        Rst.Close
End Sub

merci

_______________________
4L!@$ >>>>

alias666 · Accepted Answer

bon j'ai trouver comme un gland j'avais mis une ligne en trop au niveau de l'index je donne la solution.



Private Sub Form_Load()
Set Db = DBEngine.OpenDatabase("z:\bd1.mdb")
Call RemplirTV(TV)
End Sub

Private Sub RemplirTV(C1 As TreeView)
Dim Rst As Recordset, NouveauG As String, AncienG As String, NodeX As Node, IndexGroup As Long
C1.Nodes.Clear
Set Rst = Db.OpenRecordset("Select * from pcseb order by group asc", dbOpenSnapshot)
Set NodeX = C1.Nodes.Add(, , , "PC")
While Not Rst.EOF
NouveauG = Rst!Group
If NouveauG <> AncienG Then
Set NodeX = C1.Nodes.Add(1, tvwChild, , Rst!Group)
C1.Nodes.Item(NodeX.Index).Tag = 1 & "|" & Rst!numéro
IndexGroup = NodeX.Index
AncienG = Rst!Group
End If
Set NodeX = C1.Nodes.Add(IndexGroup, tvwChild, , Rst!Item)
Rst.MoveNext

Wend
Rst.Close
End Sub



_______________________
4L!@$ >>>>

Rattachement treeview

1 réponse

Discussions similaires