生成目录树选择sort参数结果重复？（上传了例子） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 生成目录树选择sort参数结果重复？（上传了例子）

共有7160人关注过本帖树形打印复制链接主题：生成目录树选择sort参数结果重复？（上传了例子）

don

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

加好友

发短信

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2013/3/13 22:12:00 [显示全部帖子]

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

'从"数据字典"表取数生成目录树
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "SELECT * From {数据字典} ORDER BY 序号"
dt = cmd.ExecuteReader()
tr.BuildTree(dt,"数据名称|值")

don

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

加好友

发短信

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2013/3/14 10:32:00 [显示全部帖子]

2樓不能根据表中的序号列来确定目录树中节点的显示位置嗎?

don

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

加好友

发短信

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2013/3/14 11:07:00 [显示全部帖子]

多說無益!來個杠杠的吧.

don

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

加好友

发短信

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2013/3/14 11:36:00 [显示全部帖子]

有图有真相:

此主题相关图片如下：123.png

don

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

加好友

发短信

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2013/3/14 12:11:00 [显示全部帖子]

Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")

'从"数据字典"表取数生成目录树

Dim dt As DataTable

Dim cmd As New SQLCommand

cmd.CommandText = "SELECT * From {表A} ORDER BY 序号"

dt = cmd.ExecuteReader()

Dim drs1 As New List(of DataRow)

Dim Ls1 As New List(of String)

Dim s1,s2 As String

Dim nd As WinForm.TreeNode

Ls1 = dt.GetUniqueValues("","数据名称")

For Each s1 In Ls1

nd = Tr.Nodes.Add(s1,s1)

drs1 = dt.Select("数据名称 = '" & s1 & "'","序号")

For Each dr As DataRow In drs1

nd.Nodes.Add(dr("值"),dr("值"))

don

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

加好友

发短信

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2013/3/14 12:28:00 [显示全部帖子]

还可以:

Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")

Dim dt As DataTable

Dim cmd As New SQLCommand

cmd.CommandText = "SELECT 数据名称,Format(序号,'000') & 值 As 值 From {表A} ORDER BY 序号 "

dt = cmd.ExecuteReader()

tr.BuildTree(dt,"数据名称|值")

For Each nd As WinForm.TreeNode In tr.AllNodes

If nd.Level >0 Then

nd.Text = nd.Text.Substring(3)

End If

下一主题 >> << 上一主题

主题：生成目录树选择sort参数结果重复？（上传了例子）