Hej jag hra en träd kontroll som jag vill fylla från enb tabel med dessa kolumnar IdMedlem, ParentIdMedlem, Namn. Har kört fast hur gör jag detta.

/Joakim

Här kanske du kan hitta lite hjälp http://www.pellesoft.se/search.aspx?lstarea=3&search=Treeview

Söker hjälp om vb.net men tack ändå

Troligen inte den bästa lösningen men den funkar än sålänge inte helt klar.

Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click

Dim i As Integer
Dim nodeROOT, nodeCHILD As TreeNode
Dim ds As New DataSet

'Lägger resultatet i ett dataset för att kunna sätta
'källan till datatabellen
ds = Facade.DimensionMedlem.GetAll(1)

treeDimMed.Nodes.Clear()

' Lägg ut info från datasetet i trädet
For i = 0 To ds.Tables(0).Rows.Count - 1
If cint(ds.Tables(0).Rows(i).Item("ParentIdMedlem")) = 0 Then

nodeROOT = New TreeNode
nodeROOT.Text = CStr(ds.Tables(0).Rows(i).Item("Namn"))
nodeROOT.Tag = ds.Tables(0).Rows(i).Item("IdMedlem")
treeDimMed.Nodes.Add(nodeROOT)
Call makeChildNodes(nodeROOT, ds)

Else

'nodeCHILD = New TreeNode
'nodeCHILD.Text = CStr(ds.Tables(0).Rows(i).Item("Namn"))

'nodeROOT = nodeROOT.Nodes.Item(CInt(ds.Tables(0).Rows(i).Item("ParentIdMedlem")))
'nodeROOT.Nodes.Add(CStr(ds.Tables(0).Rows(i).Item("ParentIdMedlem"))).Nodes.Add(nodeCHILD)
'treeDimMed.Nodes.Insert(treeDimMed.VisibleCount, New TreeNode(CStr(ds.Tables(0).Rows(i).Item("Namn"))))
End If

Next i

treeDimMed.Focus()
End Sub

Private Sub makeChildNodes(ByVal treeNode As TreeNode, ByVal ds As DataSet)
Dim nodeCHILD As treeNode
Dim i As Integer

For i = 0 To ds.Tables(0).Rows.Count - 1
If CStr(ds.Tables(0).Rows(i).Item("ParentIdMedlem")) = CStr(treeNode.Tag) Then

nodeCHILD = New treeNode
nodeCHILD.Text = CStr(ds.Tables(0).Rows(i).Item("Namn"))
nodeCHILD.Tag = ds.Tables(0).Rows(i).Item("IdMedlem")
treeNode.Nodes.Add(nodeCHILD)
Me.makeChildNodes(nodeCHILD, ds)

End If
Next i
End Sub