请问如何生成目录树？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问如何生成目录树？

共有3047人关注过本帖树形打印复制链接主题：请问如何生成目录树？

lyfxybc

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1290 积分：9820 威望：0 精华：0 注册：2012/9/19 21:13:00

Post By：2014/9/13 12:51:00 [只看该作者]

老师，您好，

列名全部写入,有数据的写入到当前节点下

我的想法是在以上基础上就部分列形成目录树，有数据的写入到当前节点下，并非有数据就要形成目录树

需要形成目录树的列，可以先确定下来，再根据确定的列名形成目录树。

当然上面各位老师的代码有时都需要

[此贴子已经被作者于2014-9-13 12:51:51编辑过]

blackzhu

小大 12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2014/9/13 13:08: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

Select Case c.Name

Case "第一列","第二列","第三列","第四列","第五列"

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

End Select

tv.ResumeRedraw

lyfxybc

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1290 积分：9820 威望：0 精华：0 注册：2012/9/19 21:13:00

Post By：2014/9/13 18:42:00 [只看该作者]

非常感谢，正是我想要的

总数 13 上一页 1 2

主题：请问如何生成目录树？