Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关联多表创建目录树


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

主题：关联多表创建目录树
帅哥哟，离线，有人找我吗？
don
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2011/9/18 23:43:00 [只看该作者]

以下是引用a2704b在2011-9-18 23:41:00的发言：

感激不尽


纸上不谈兵,实例说话.
 回到顶部
帅哥哟，离线，有人找我吗？
e-png
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00 		  发帖心情 Post By：2011/9/19 0:05:00 [只看该作者]

的确有些复杂，搂主应做个简单的项目，要有一定数量的单位、部门、员工，以便老师、高手出招，好象可以用上动态字典的。

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


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/9/19 7:48:00 [只看该作者]

楼主，要养成好习惯，自己设计好三个表，输入一些测试数据。

否则想帮助你的人还得先设计这三个表，输入测试数据，而这些简单但是花时间的事情本该你做好的。

因为任何人写代码都不会一气呵成的，都需要调试的，通过才能发给你，这也是对你负责。

 

你自己做多点，才能得到更快更好的回复。

 

 

 

[此贴子已经被作者于2011-9-19 7:49:44编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/9/19 8:15:00 [只看该作者]

问题并不复杂，帮你准备这个文件的时间，远远比写代码的时间多：

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目93.rar

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each dr1 As DataRow In DataTables("表A").DataRows
    Dim nd1 As WinForm.TreeNode = trv.nodes.Add(dr1("第二列"))
    For Each dr2 As DataRow In dr1.GetChildRows("表B")
        Dim nd2 As WinForm.TreeNode = nd1.nodes.add(dr2("第二列"))
        For Each dr3 As DataRow In dr2.GetChildRows("表C")
            nd2.nodes.add(dr3("第二列"))
        Next
    Next
Next

[此贴子已经被作者于2011-9-19 8:15:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2011/9/19 9:12:00 [只看该作者]

另一法:
Dim jb As New SQLJoinTableBuilder("查询","员工")
jb.AddTable("员工","部门ID","部门","部门ID")
jb.AddCols("{部门}.单位ID","部门名称","员工名称")

Dim sql As String ="Select 单位名称,部门名称,员工名称 From(" 
sql+=jb.Buildsql & ") A Inner JOIN {单位} ON {单位}.[单位ID] = A.[单位ID]"

Dim cmd As New SQLCommand
cmd.CommandText = sql
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree(cmd.ExecuteReader,"单位名称|部门名称|员工名称")
 回到顶部
帅哥哟，离线，有人找我吗？
a2704b
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：251 积分：4395 威望：0 精华：0 注册：2011/5/27 20:10:00 		  发帖心情 Post By：2011/9/19 11:36:00 [只看该作者]

用户已被锁定
 回到顶部
总数 16 上一页 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.03711 秒, 5 次数据查询