无限分类非递归终极解决方

这几天在写HRM的时候 这问题搞了我两天，哈哈！开始在使用Google 找了半天都是一堆垃圾，都是使用算法的较多， 后来就去了 找到点启示。

好了废话多说无用。

首先表结构如下 表名 Test

写个存储过程 GetTreeview

这个不用我说了吧下面用到

为了速度缓存DataTable

Public Function GetTreeTable() As DataTable

Dim dt As New DataTable()

dt = che(\"Treeview\")

If dt Is Nothing Then

Dim Conn As New SqlConnection

Dim clsConnDatabase As New ConnectionDatabase

Conn = nnDatabase

Dim Command As New SqlCommand

nnection = Conn

mandText = \"GetTreeview\"

mandType = oredProcedure

ecuteNonQuery()

Dim da As New SqlDataAdapter(Command)

dt = New DataTable()

ll(dt)

sert(\"Treeview\", dt)

End If

Return dt

End Function

这里是主要阿

Public Sub PopulateNodes(ByVal nodes As TreeNodeCollection, Optional ByVal intParentID As Int32 = 0)

Dim dt As New DataTable()

dt = tTreeTable()

Dim strExpression As String

strExpression = \"[parentID] = \" intParentID

Dim foundRows() As DataRow

打乱考生的复习计划 foundRows = lect(strExpression)

Dim I As Integer

For I = 0 To tUpperBound(0)

Dim tn As New TreeNode()

xt = foundRows(I).Item(“TableName”).ToString()

lue = foundRows(I).Item(\"ID\").ToString()

Dim dr() As DataRow

dr = lect(\"[parentID] = \" lue)

If tUpperBound(0) -1 Then

pulateOnDemand = True

End If

d(tn)

Next

End Sub

建立WebForm 放入Treeview

Protected Sub Page_Load(ByVal sender As Object, ByVal e As entArgs) Handles ad

If Not PostBack Then

PopulateNodes(des, 0)

End If

End Sub

Protected Sub TreeView1_TreeNodePopulate(ByVal sender As Object, ByVal e As eeNodeEventArgs) Handles eeNodePopulate

PopulateNodes(ildNodes, lue)

End Sub

至于速度我没测试，如果大家有兴趣帮忙测测。

查看本文来源

石家庄治疗妇科
合肥治疗男科医院
孩子不吃饭怎么办