Jag fyller en treeview först med alfabetet sen namn på personer under rätt bokstav "efternamn" sen vill jag lägga in telefon nr under namn men får det inte funka?
ex.
+ N
+ O
- P-
|-Per Persson
|- 070-6574654

The Code:
Set contactNode = ctrListControl.Nodes.Add(sFilter, tvwChild, "ID" & CStr(rs!idnr), rs!namn)

Hur får jag in (rs!mobilnr) under [P]&[Per Persson] - [?rs!mobilnr]

.Nodes.Add([Relative],[Relationship],[Key],[Text],[Image],[SelectedImage])

Tacksam för hjälp!

Förenklar frågan.

Jag vill lägga till en GranChild i en Treeview.
Hur får jag in den på rätt plats?

Om jag vet att den har Key = "ID81" eller att den skall ligga under Root:P,Node:Persson

Hur knyter jag relationen?

Mycket tacksam för hjälp!

Du kan ange Index, Key eller Node för föräldern som Relative

Förälderns key:
<code>
Set contactNode = ctrListControl.Nodes.Add(sFilter, tvwChild, "ID" & rs("idnr"), rs("namn"))
ctrListControl.Nodes.Add "ID" & rs("idnr"), tvwChild,, "" & rs("mobilnr")
ctrListControl.Nodes.Add "ID" & rs("idnr"), tvwChild,, "" & rs("Email")
'osv...
</code>
Förälderns node:
<code>
Set contactNode = ctrListControl.Nodes.Add(sFilter, tvwChild, "ID" & rs("idnr"), rs("namn"))
ctrListControl.Nodes.Add contactNode, tvwChild,, "" & rs("mobilnr")
ctrListControl.Nodes.Add contactNode, tvwChild,, "" & rs("Email")
'osv...
</code>
Förälderns Index:
<code>
Set contactNode = ctrListControl.Nodes.Add(sFilter, tvwChild, "ID" & rs("idnr"), rs("namn"))
ctrListControl.Nodes.Add contactNode.Index, tvwChild,, "" & rs("mobilnr")
ctrListControl.Nodes.Add contactNode.Index, tvwChild,, "" & rs("Email")
'osv...
</code>


Littet annat exempel.
<code>
Dim Node As Node
Dim Index As Long
Set Node = TreeView1.Nodes.Add(, , , "Root")
For Index = 1 To 10
Node.Expanded = True
Set Node = TreeView1.Nodes.Add(Node, tvwChild, , "Child " & Index)
Next
</code>