- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 生成目录树排列顺序 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28456)
-- 发布时间：2013/1/30 8:59:00
-- [求助] 生成目录树排列顺序
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 部门,课,系,班,班别 From {人员资料}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"部门|课|系|班|班别")
trv.Nodes.Insert("加载所有数据",0)
此主题相关图片如下：未命名.jpg
我用帮助中的代码 生成了 目录树, 如图, 请问如果 把 总经理 调上去第一位?
-- 发布时间：2013/1/30 9:12:00
--
你对你的数据表进行一下排序，比如，总经理的行调到最上方去，然后保存一下数据表。然后编写代码。按照_Sortkey排序来生成
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 部门,课,系,班,班别,[_SortKey] From {人员资料}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"部门|课|系|班|班别","","_Sortkey")
trv.Nodes.Insert("加载所有数据",0)
-- 发布时间：2013/1/30 10:55:00
--
老师 这样 目录树变成了 很多个 母选项
此主题相关图片如下：未命名.bmp
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
请帮忙看下附件.
-- 发布时间：2013/1/30 12:01:00
--
好的，这样弄一下就行了。测试有效。
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "select distinct 部门, 课, 系, 班, 班别, (select top 1 员工编号 from {人员资料} as a where a.部门 = b.部门 ) as 员工编号 from {人员资料} as b"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"部门|课|系|班|班别", "", "员工编号")
trv.Nodes.Insert("加载所有数据",0)
-- 发布时间：2013/1/30 13:38:00
--
(select top 1 员工编号 from {人员资料} as a where a.部门 = b.部门 ) as 员工编号 from {人员资料} as b
可以了 老师 ,想问下 这个是扫描意思呢?
-- 发布时间：2013/1/30 13:53:00
--
(select top 1 员工编号 from {人员资料} as a where a.部门 = b.部门 ) as 员工编号 from {人员资料} as b
可以了 老师 ,想问下 这个是扫描意思呢?
意思是部门相同的，取出最前一个人的员工编号。