内部函数
Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim drs As List(of DataRow)
drs = dt.Select("[parentid] = '" & nd.name & "'")
For Each dr As DataRow In drs
Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("objid"),dr("objjc"))
Functions.Execute("AddChildren",cd,dt)
Next
--------
内部函数
Dim sql As String = Args(0) 'sql语句
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName= "ddd"
cmd.CommandText = sql
dt = cmd.ExecuteReader()
Return dt
-------
代码
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim sql As String = "Select a.parentid, a.objtype, a.objid, a.objjc, (Select Count(objid) FROM D0200 WHERE parentid = a.objid) As 下级数 " _
& " FROM D0200 As a"
Dim dt As DataTable = Functions.Execute("wis",sql)
tr.StopRedraw()
tr.Nodes.Clear
'tr.Nodes.Add("全部") '这么大的数据量,就不要加全部了
Dim drs As List(of DataRow)
drs = dt.Select("objtype = 1")
For Each dr As DataRow In drs
nd = tr.Nodes.Add(dr("objid"),dr("objjc"))
Functions.Execute("AddChildren",nd,dt)
Next
tr.ResumeRedraw()
加好友 
发短信
Post By：2014/9/15 17:07:00 [只看该作者]
