以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107672)
--  作者：kaituozhe
--  发布时间：2017/10/7 15:25:00
--  目录树

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

甲公司

   资产类

      1002  银行存款

         001 中国银行

            001 长城路支行

            002 黄河支行

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目12.foxdb
--  作者：有点甜
--  发布时间：2017/10/7 15:40:00
--  

参考

 

下载信息  [文件大小：27.8 KB  下载次数：19]
图片点击可在新窗口打开查看点击浏览该文件:目录树表.zip
--  作者：kaituozhe
--  发布时间：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","子节点四")

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

形成以下格式

根节点一

  子节点一

    子子节点一
--  作者：有点甜
--  发布时间：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", "子节点一一")