[Genius Live]

كود :

TV1.BeginUpdate()
            TV1.Nodes.Clear()
            Dim AccountsDataSet1 As New DataSet
            AccountsDataSet1.Clear()
            con.Open()
            Dim DataAdapter1 As New SqlDataAdapter("Select name from Table1  where Level =0", con)
            DataAdapter1.Fill(AccountsDataSet1, "Table1")
            con.Close()
            Dim dv1 As DataView = AccountsDataSet1.Tables("Table1").DefaultView
            For Each drLine As DataRowView In dv1
                Dim MainHeader As New TreeNode(drLine("name").ToString)
                TV1.Nodes.Add(MainHeader)
                AddSubNode(MainHeader)
                TV1.EndUpdate()
            Next