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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  增加节点  (http://foxtable.net/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
--
谢谢，有点甜老师