[原创]18行代码实现无限级填充TreeView的例子与函数

做的时候在网站找了N个小时的代码也没找见比较短小的代码,索性自已写了一个,功能是可以无限级分类填充TreeView.

'//调用时使用LoadTree(TreeView1.Nodes,0)  参数1表示当前的节目级别.0表示为根节点,参数2为父分类ID,0表示顶级分类,

 '//以下是代码,VB.NET 2.0,2.0和1.1基本上是一致的,在语法上没多大的区别.
 '//从数据库中读取分类信息加载分类到列表框中.
    Private Sub loadTree(ByVal Nodes As TreeNodeCollection, ByVal lbID As Integer)
        '获得各级分类
        Dim sNode As Integer = -1
        Dim CmdText As String = "Select * From sys_lb where FolderID=" + lbID.ToString + " Order by ID"
        Dim Ds As DataSet = New DataSet
        Dim Dr As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(CmdText, SqlConn)
        Dr.Fill(Ds)
        If Ds.Tables(0).Rows.Count > 0 Then
            '加载节点
            Dim I As Integer
            For I = 0 To Ds.Tables(0).Rows.Count - 1
                sNode += 1
                Dim mylbName As String = Ds.Tables(0).Rows(I).Item("lbName").ToString
                Dim mylbID As String = Ds.Tables(0).Rows(I).Item("ID").ToString
                Nodes.Add(mylbID, mylbName)
                '读取当前节点的子节点加载
                loadTree(Nodes(sNode).Nodes, CInt(mylbID))
            Next
        End If
        TreeView1.ExpandAll()
    End Sub

'//Sys_lb表的结构:
CREATE TABLE [dbo].[sys_lb] (
 [ID] [int] IDENTITY (1, 1) NOT NULL ,
 [lbName] [varchar] (30) COLLATE Chinese_PRC_CI_AS NOT NULL ,
 [lbInfo] [varchar] (120) COLLATE Chinese_PRC_CI_AS NULL ,
 [folderID] [int] NOT NULL
) ON [PRIMARY]
GO

'//ID为自动编号Int类型,LbName为分类名称,LbInfo为分类说明,该列您可以修改或是删除它.FolderID存储父级分类ID