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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树

共有1846人关注过本帖树形打印复制链接主题：目录树

kaituozhe

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

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

目录树

Post By：2017/10/7 15:25:00 [只看该作者]

怎么把目录树设置成以下格式数据在表A中

甲公司

资产类

1002 银行存款

001 中国银行

001 长城路支行

002 黄河支行

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目12.foxdb

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/7 15:40:00 [只看该作者]

参考

下载信息 [文件大小：27.8 KB 下载次数：19]
点击浏览该文件:目录树表.zip

kaituozhe

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

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2017/10/7 16:43:00 [只看该作者]

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = Forms("窗口1").Controls("TreeView1")
nd = Tr.Nodes.Add("Root1","根节点一")
nd.Nodes.Add("Sub1","子节点一")
nd.Nodes.Add("Sub2","子节点二")
nd = Tr.Nodes.Add("Root2","根节点二")
nd.Nodes.Add("Sub3","子节点三")
nd.Nodes.Add("Sub4","子节点四")

以上代码上我想“子节点一”下再增加它的子节点怎么做？

形成以下格式

根节点一

子节点一

子子节点一

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/7 16:48:00 [只看该作者]

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = Forms("窗口1").Controls("TreeView1")
nd = Tr.Nodes.Add("Root1","根节点一")
Dim cnd1 = nd.Nodes.Add("Sub1","子节点一")
Dim cnd2 = nd.Nodes.Add("Sub2","子节点二")
Dim cnd3 = cnd1.nodes.add("sub3", "子节点一一")

下一主题 >> << 上一主题

主题：目录树