- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请问如何生成目录树？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56823)
-- 发布时间：2014/9/12 22:30:00
-- 请问如何生成目录树？
请问如何生成目录树？
如何把表的列名生成目录树的第一个节点，列的内容为第二个节点。
Select
Case 变量
Case 值1
End
Select
用代码如何写
此主题相关图片如下：2.bmp
-- 发布时间：2014/9/12 22:43:00
--
提问放勤快点，发文件！
-- 发布时间：2014/9/12 22:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2014/9/12 23:36:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目0912.table |
-- 发布时间：2014/9/12 23:51:00
--
或许这才是您要的：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目0913.table |
-- 发布时间：2014/9/13 7:23:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:列名根节点目录树.table |
-- 发布时间：2014/9/13 11:40:00
--
谢谢
-- 发布时间：2014/9/13 12:24:00
--
再次感谢，上面例子是当列不为空时形成的目录数，有时个别列并不需要形成目录树，如只形成第一列，第三列，第四列等，请再麻烦一下，给个例子
-- 发布时间：2014/9/13 12:39:00
--
不明白 6 楼不是你所要的效果吗?
-- 发布时间：2014/9/13 12:43:00
--
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
tv.StopRedraw
tv.nodes.Clear
For Each c As Col In Tables("表A").Cols
tv.Nodes.Add(c.Name)
For Each r As Row In Tables("表A").Rows
If r.IsNull(c.Name)= False Then
tv.Nodes(c.Name).Nodes.Add(r(c.Name))
End If
Next
Next
tv.ResumeRedraw
是不是这样.列名全部写入,有数据的写入到当前节点下