以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  增加节点  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60488)
--  作者：Lc
--  发布时间：2014/11/25 19:33:00
--  增加节点
      Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")

      Dim nd As WinForm.TreeNode

      nd = Trv.Nodes.Add("家电产品")

      nd.Nodes.Add("("电视机")

      nd.Nodes.Add("("洗衣机")

      nd.Nodes.Add("("洗衣机")

      nd = Trv.Nodes.Add("数码产品")

      nd.Nodes.Add("("电脑")

      nd.Nodes.Add("("电脑配件")

      nd.Nodes.Add("("相机")

希望再增加一层，如下：
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140903032540.png
图片点击可在新窗口打开查看

请指点，谢谢！

[此贴子已经被作者于2014-11-25 19:35:54编辑过]
--  作者：有点甜
--  发布时间：2014/11/25 19:55:00
--  

 Dim cnd As WinForm.TreeNode = nd.Nodes.Add("("电脑")

 cnd.Nodes.Add("笔记本电脑")

 cnd.Nodes.Add("台式电脑")
--  作者：Lc
--  发布时间：2014/11/25 20:04:00
--  
谢谢，有点甜老师