Dim parentrow As DataRow
        Dim ParentTable As DataTable
        ParentTable = DataSet1.Tables("Select")
 
        For Each parentrow In ParentTable.Rows
            Dim parentnode As TreeNode
            parentnode = New TreeNode(parentrow.Item(1))
            If TreeView1.Nodes.Contains(parentnode) = False Then
                TreeView1.Nodes.Add(parentnode)
            End If
            Dim childrow As DataRow
            Dim childnode As TreeNode
            childnode = New TreeNode()
            For Each childrow In ParentTable.Rows
                childnode = parentnode.Nodes.Add(childrow(2))
                Dim childrow2 As DataRow
                Dim childnode2 As TreeNode
                childnode2 = New TreeNode()
                For Each childrow2 In ParentTable.Rows
                    childnode2 = childnode.Nodes.Add(childrow2(3))
                Next childrow2
            Next childrow
        Next parentrow

--
Wann und wo ? Denn, Dort....!

VB.NET 2005 EE / MySQL / MSSQL EE