7,789
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
jordi2014 2003-09-03
- 打赏
- 举报
dim iCount as integer
dim tnode as node
icount=0
with treeview1
for each tnode in .nodes.
if tnodes(i).parent is nothing then
icount=icount+1
endif
next
end with
msgbox "共有" & icount & "个根节点！"
dim tnode as node
icount=0
with treeview1
for each tnode in .nodes.
if tnodes(i).parent is nothing then
icount=icount+1
endif
next
end with
msgbox "共有" & icount & "个根节点！"
射天狼 2003-09-03
- 打赏
- 举报
同意楼上~~
liul17 2003-09-03
- 打赏
- 举报
也可通过在建树时标识不同的关键字 如根结点以Root开头 子结点以Sub开头
lxcc 2003-09-03
- 打赏
- 举报
dim nodex as node
dim i as integer
i=0
for each nodex in treeview1.nodes
if nodex.Parent="" then
i=i+1
endif
next
msgbox i
dim i as integer
i=0
for each nodex in treeview1.nodes
if nodex.Parent="" then
i=i+1
endif
next
msgbox i
yqy888 2003-09-03
- 打赏
- 举报
谢谢两位，运行出错，在请帮助，谢谢！！！！
