[求助]目录树问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请教个关于外部数据表用递归函数生成目录树的问题：

有没有办法在不添加外部数据表的情况下，用递归函数生成目录树？

我的自定义函数AddChildren内容如下：

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("objname"),dr("objjc"))

Functions.Execute("AddChildren",cd,dt)

自定义函数“数据提取”的内容如下：

'做一个通用的数据提取函数

Dim sql As String = Args(0) 'sql语句

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

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.objid, a.objjc, (Select Count(objid) FROM D020 WHERE parentid = a.objid) As 下级数 " _

& " FROM D020 As a WHERE a.objtype = 1 "

Dim dt As DataTable = Functions.Execute("wis数据提取",sql)

tr.StopRedraw()

tr.Nodes.Clear

'tr.Nodes.Add("全部") '这么大的数据量,就不要加全部了

For Each dr As DataRow In dt.datarows

nd = tr.Nodes.Add(dr("objid"),dr("objjc"))

If dr("下级数") > 0 Then

nd.Nodes.Add("空")

End If

tr.ResumeRedraw()

[此贴子已经被作者于2014-9-15 15:38:46编辑过]

可以

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "行政区域"
cmd.CommandText = "SELECT DISTINCT 省市 From {行政区域}"
dt = cmd.ExecuteReader

求甜大师帮忙修改一下我的代码，谢谢！

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode

Dim sql As String = "Select a.objid, a.objjc, (Select Count(objid) FROM D020 WHERE parentid = a.objid) As 下级数 " _
& " FROM D020 As a WHERE a.objtype = 1 "

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("[parentid] is null")
For Each dr As DataRow In drs
nd = tr.Nodes.Add(dr("objid"),dr("objjc"))
Functions.Execute("AddChildren",nd,dt)
Next
tr.ResumeRedraw()

提示“未找到列 [parentid]。”不知道改哪？

以下是引用jygyyl在2014-9-15 16:25:00的发言：
提示“未找到列 [parentid]。”不知道改哪？

那你的代码就全部写错了。

例子发上来，不清楚你表格的结构是什么。

数据表如下，代码在一楼（可以生产目录树，但必须添加外部数据表。我的项目类似数据表近100个，不想全部添加），求大师指点！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:shuju.zip

[此贴子已经被作者于2014-9-15 16:46:35编辑过]

编码规则不一样，我的编码是15位，前6位是两位递进，后9位是3位递进。不会套用。

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