以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  nodes count  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101396)

--  作者:1498351234
--  发布时间:2017/5/30 9:31:00
--  nodes count
怎样计算一个NODES下的子节点数,用于删除节点
--  作者:有点蓝
--  发布时间:2017/5/31 10:01:00
--  

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
msgbox( tr.Nodes.Count)

For Each n As WinForm.TreeNode In tr.Nodes
    msgbox(n.Nodes.Count)
Next