以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于目录树，如何取出目录树的最底级  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124738)
--  作者：allenyen
--  发布时间：2018/9/12 19:49:00
--  关于目录树，如何取出目录树的最底级


勾选目录树时 如何将目录树最底级以\'AAAA\',\'BBBB\',\'CCCC\',\'DDDD\' 的模式填充
[此贴子已经被作者于2018/9/12 20:11:23编辑过]
--  作者：有点甜
--  发布时间：2018/9/12 20:05:00
--  

Dim str As String = ""

for each nd As object in trv.allnodes

    If nd.nodes.count = 0 andAlso nd.checked Then

        str &= nd.text & ","

    End If

next

msgbox(str.trim(","))