Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何把外部数据源的多列内容都生成树的根结点？


  共有4647人关注过本帖树形打印复制链接

主题：如何把外部数据源的多列内容都生成树的根结点？
帅哥哟，离线，有人找我吗？
wh420
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10568 威望：0 精华：0 注册：2014/2/19 16:32:00 		如何把外部数据源的多列内容都生成树的根结点？  发帖心情 Post By：2014/3/21 13:52:00 [只看该作者]

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("订单", "产品|客户|雇员")

帮助中把产品，客户，雇员三列生成了多级的树，请问如何让这三列都生成只有根结点的树？
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/3/21 14:05:00 [只看该作者]

不是很理解你的意思.

 回到顶部
帅哥哟，离线，有人找我吗？
wh420
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10568 威望：0 精华：0 注册：2014/2/19 16:32:00 		  发帖心情 Post By：2014/3/21 14:14:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看
图一是帮助中实现的效果，图2是我想要的效果，都在根结点

 回到顶部
帅哥哟，离线，有人找我吗？
wh420
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10568 威望：0 精华：0 注册：2014/2/19 16:32:00 		  发帖心情 Post By：2014/3/21 14:15:00 [只看该作者]

就是根据多列内容生成只有根结点的目录树

 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/3/21 14:19:00 [只看该作者]

例子：


Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT Year(消费日期) As 年, Month(消费日期) As 月, 品牌, 店铺 From {会员消费表} "
dt = cmd.ExecuteReader()
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
tv.BuildTree(dt, "年|月")
tv.Nodes.Insert("显示所有行",0)
Dim str1 As String = dt.GetComboListString("品牌")
Dim str2 As String = dt.GetComboListString("店铺")
tv.Nodes.Add("品牌")
tv.Nodes.Add("店铺")
For Each s As String In str1.Split("|") 
    tv.Nodes("品牌").Nodes.Add(s)
Next
For Each s As String In str2.Split("|")
    tv.Nodes("店铺").Nodes.Add(s)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
wh420
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10568 威望：0 精华：0 注册：2014/2/19 16:32:00 		  发帖心情 Post By：2014/3/21 14:33:00 [只看该作者]

'生成目录树
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT YuanLan1,Mubiaolan1 From {Translators}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"YuanLan1")
trv.Nodes.Insert("加载所有数据",0)
Dim str1 As String = dt.GetComboListString("Mubiaolan1") 
trv.Nodes.Add("Mubiaolan1") 
For Each s As String In str1.Split("|") 
    trv.Nodes("Mubiaolan1").Nodes.Add(s)
Next

按您给的代码我试了一下，实现效果如下：

图片点击可在新窗口打开查看此主题相关图片如下：3.jpg
图片点击可在新窗口打开查看
而我想要的效果是：

图片点击可在新窗口打开查看此主题相关图片如下：4.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wh420
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10568 威望：0 精华：0 注册：2014/2/19 16:32:00 		  发帖心情 Post By：2014/3/21 15:00:00 [只看该作者]

自己顶一下，高手帮忙啊

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/3/21 15:03:00 [只看该作者]

上例子.

 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/3/21 15:04:00 [只看该作者]

灵活运用，条件不是自己设的嘛，想生成啥样就啥样。

 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/3/21 15:06:00 [只看该作者]

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT YuanLan1,Mubiaolan1 From {Translators}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"YuanLan1")
trv.Nodes.Insert("加载所有数据",0)
Dim str1 As String = dt.GetComboListString("Mubiaolan1") 
For Each s As String In str1.Split("|") 
    trv.Nodes.Add(s)
Next
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询