以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [分享]同表关联生成目录树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25209)

--  作者:blackzhu
--  发布时间:2012/11/3 17:32:00
--  [分享]同表关联生成目录树

     在群里有人提出一个问题  一个表 有一列为上级列 一列为下级列 要根据上级列的内容来生成一个目录树  目录树的内容是根据上级列的下级列出:

 

    上例子:


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:同表关联生成目录树.foxdb


--  作者:hanxuntx
--  发布时间:2012/11/3 18:03:00
--  
顶,这个好像是递归生成目录树吧
--  作者:布莱克朱
--  发布时间:2012/11/3 18:34:00
--  
寒寻不是哦!
--  作者:blackzhu
--  发布时间:2012/11/4 8:38:00
--  
哎 白写了吗,没有人顶,说明一下 不是递归函数做的.用了一个巧办法,四句代码!
--  作者:hanxuntx
--  发布时间:2012/11/4 9:18:00
--  

呵呵,仔细看了一下,才发现老朱的构思还是挺巧妙地


--  作者:zzwxm98
--  发布时间:2012/11/4 9:29:00
--  
不是没人顶,只是foxdb格式打不开
--  作者:blackzhu
--  发布时间:2012/11/4 9:33:00
--  

传入 下面两张图片:


图片点击可在新窗口打开查看此主题相关图片如下:未命名1.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:未命名3.jpg
图片点击可在新窗口打开查看

 

 

  先做了一个同表的关联,再生成目录树!

[此贴子已经被作者于2012-11-4 9:34:05编辑过]

--  作者:blackzhu
--  发布时间:2012/11/5 7:23:00
--  
自己顶一下 ,这个我还是认为有用的.
--  作者:狐狸爸爸
--  发布时间:2012/11/5 8:36:00
--  

老朱,没看明白,你的代码和下面的代码,不是一样的吗:

 

 

Dim dt As DataTable = DataTables("表A")
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree(dt, "上级|下级")


--  作者:lin_hailun
--  发布时间:2012/11/5 8:38:00
--  
 顶一下再看。