以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  可多选目录树  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193237)

--  作者:1234567
--  发布时间:2024/8/29 8:40:00
--  可多选目录树
Dim s As String = ""
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes \'如果只选择第二层节点,代码如何写?
    If nd.Checked Then
        s = s & vbcrlf & nd.Text
    End If
Next
e.Form.DropDownBox.Value = s.trim()
e.Form.DropDownBox.CloseDropdown

--  作者:有点蓝
--  发布时间:2024/8/29 8:45:00
--  
http://www.foxtable.com/webhelp/topics/0907.htm

For Each nd As WinForm.TreeNode In trv.AllNodes \'如果只选择第二层节点,代码如何写?
    If nd.Level=1 andalso nd.Checked Then

--  作者:1234567
--  发布时间:2024/8/29 8:49:00
--  

第一层节点不显示复选框,只有第二层节点显示复选框,是否可以?


--  作者:有点蓝
--  发布时间:2024/8/29 8:59:00
--  
不可以的