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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]目录树问题

共有3274人关注过本帖树形打印复制链接主题：[求助]目录树问题

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/15 15:32:00 [显示全部帖子]

可以

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/15 16:01:00 [显示全部帖子]

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/15 16:30:00 [显示全部帖子]

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

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

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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/15 16:46:00 [显示全部帖子]

你要的，就是4楼那个啊

http://www.foxtable.com/help/index.html?n=2502.htm

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/15 17:07:00 [显示全部帖子]

内部函数

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