以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何统计多选目录树的一级节点个数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191067)

--  作者:采菊东篱下
--  发布时间:2024/3/25 9:13:00
--  如何统计多选目录树的一级节点个数
   在多选目录树中勾选了二级节点,一级节点没勾选,我希望统计已勾选二级节点对应的一级节点个数。

--  作者:有点蓝
--  发布时间:2024/3/25 9:19:00
--  
Dim tv As WinForm.TreeView
tv =e.Form.Controls(
"TreeView1")
dim sum as integer
for each td As WinForm.TreeNode in tv.Nodes
for each td2 As WinForm.TreeNode in td .Nodes
if td2.Checked then
sum += 1
exit for
endif
next
next
msgbox(sum)