ID meegeven bij opbouw treeview VB8

[weswillem]

Na jaren weer begonnen.
Na veel proberen toch gelukt een treeview te vullen vanuit de database(Access)
Nu wil ik natuurlijk een id meegeven bij de persoon. Maar weet niet meer
hoe dat ging.
Bij mijn weten kan ik dit doen middels TAG. Dit heb ik gedaan maar
er komt geen waarde terug als ik op een naam klikt.
Iemand die mij verder kan helpen

Conn.Open()
        mySQL = "SELECT Naam, Voorl,SoortWerknr, PersID from Gegevens"
        da = New OleDb.OleDbDataAdapter(mySQL, Conn)
        da.Fill(ds, "Zorgboerderij")
        Dim iAantal As Integer = ds.Tables("Zorgboerderij").Rows.Count

        TreeView1.Nodes.Clear()

        'Maak de root node
        Dim root As New TreeNode("Overzicht")
        TreeView1.Nodes.Add(root)
        TreeView1.Nodes(0).Nodes.Add(New TreeNode("Personeel"))
        'Maak child nodes Personeel
        For i = 0 To iAantal - 1
            WerkId = ds.Tables("Zorgboerderij").Rows(i).Item(2)
            If WerkId = 1 Then
                Naam = ds.Tables("Zorgboerderij").Rows(i).Item(1) & ds.Tables("Zorgboerderij").Rows(i).Item(0)
                TreeView1.Nodes(0).Nodes(0).Nodes.Add(New TreeNode(Naam))
                TreeView1.Nodes(0).Nodes(i).Tag = ds.Tables("Zorgboerderij").Rows(i).Item(3)
            End If
        Next i

 

[MartinJM]

Hoi,

Probeer dit eens:
[CPP] TreeView1.Nodes.Clear()

''//Maak de root node
Dim root As New TreeNode("Overzicht")
TreeView1.Nodes.Add(root)
TreeView1.Nodes(0).Nodes.Add(New TreeNode("Personeel"))
''//Maak child nodes Personeel
For i = 0 To iAantal - 1 Step 1
WerkId = ds.Tables("Zorgboerderij").Rows(i).Item(2)
If WerkId = 1 Then
Naam = ds.Tables("Zorgboerderij").Rows(i).Item(1) & ds.Tables("Zorgboerderij").Rows(i).Item(0)
Dim TN As New TreeNode
TN.Text = Naam
TN.Tag = ds.Tables("Zorgboerderij").Rows(i).Item(3)
TreeView1.Nodes(0).Nodes(0).Nodes.Add(TN)
End If
Next[/CPP]

Opvragen dan volgens mij zo:
[CPP]Dim TN As TreeNode = TreeView1.SelectedNode
MsgBox(TN.Tag)[/CPP]

Ik heb het even snel uit de losse pols geschreven, dus er zou een foutje (of twee) in kunnen zitten...

MartinJM

 

[weswillem]

He Martin.
Je heb het in één keer goed, dus niet uit de losse pols
Klasse
Dat is wat ik bedoel. Zo kan ik weer verder
Ben er echt blij mee