主题：[求助]目录树问题

内部函数

 

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()

一楼的代码是逛逛大师给的，可以实现目录树录入、筛选等功能。但需添加外部数据表

 参考11楼，改一下。

我可能没把意思表达清楚，您的代码和逛逛大师的代码都能生成目录树，同样都要设置数据源并添加所需的数据表。如不添加数据表则提示“找不到XXX表。

看2楼利用SQL语句查询出表, 然后一直沿用这个DT变量即可.

 

1、数据源那句代码你要改一下

 

cmd.ConnectionName= "ddd"

 

2、就是不需要添加数据表啊，请好好测试

搞定了，谢谢甜大师的热心帮助！

甜老师，早上好！请教个问题：以下代码能否加入判断，实现：如果在"W01"表的列“HGB003”打开目录树执行下面代码；