Форум программистов, компьютерный форум, киберфорум
dimsaratov
Войти
Регистрация
Восстановить пароль
Рейтинг: 5.00. Голосов: 1.

Visual Basic .NET Заполнение TreeView из базы данных без ограничения глубины вложения

Запись от dimsaratov размещена 15.02.2014 в 20:41
Обновил(-а) dimsaratov 17.02.2014 в 21:26
Метки treeview, vb.net

Заполнение иерархического списка (TreeView) данными из базы данных
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Imports System.Data.OleDb
Public Class Form1
    Private Function GetDataTable() As DataTable
        Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Test.mdb")
        Dim dAdapter As New OleDbDataAdapter("Select ID, Product, ParentID, ProductType From TableProduct", cnn)
        Dim rows As Integer
        Dim tblTemp As New DataTable
        Try
            rows = dAdapter.Fill(tblTemp)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        tblTemp.TableName = "TableSource"
        Return tblTemp
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tblSource As DataTable = GetDataTable()
        FillTreeView(TreeView1, tblSource)
        TreeView1.ExpandAll()
    End Sub
End Class
'**************************************************************************************
Module ModuleFillTreeView
    Private tvRoot As TreeNode
    Public Sub FillTreeView(ByVal sender As TreeView, ByVal TableSource As DataTable)
        Dim RowsRoot() As DataRow = TableSource.Select("ParentID=0", "Product")
        tvRoot = sender.Nodes.Add("#0", "Root")
        tvRoot.Tag = "Root"
        For Each dRow As DataRow In RowsRoot
            Dim NodeX As TreeNode = tvRoot.Nodes.Add("#" & dRow("ID"), dRow("Product"))
            WriteSubNode(NodeX, dRow("ID"), TableSource)
        Next
    End Sub
 
    Private Sub WriteSubNode(ByVal ParentNode As TreeNode, ByVal ParentID As Integer, ByRef tblSource As DataTable)
        Dim dRows() As DataRow = tblSource.Select("ParentID=" & ParentID, "Product")
        For Each dRow As DataRow In dRows
            Dim NodeX As TreeNode = ParentNode.Nodes.Add("#" & dRow("ID"), dRow("Product"))
            WriteSubNode(NodeX, dRow("ID"), tblSource)
        Next
    End Sub
'*********************************************************************************
Размещено в Без категории
Просмотров 1196 Комментарии 0
Всего комментариев 0
Комментарии
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.