以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]目录树多选输入,如何不包含父节点?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73528)

--  作者:ehomecd
--  发布时间:2015/8/20 17:25:00
--  [求助]目录树多选输入,如何不包含父节点?

图片点击可在新窗口打开查看此主题相关图片如下:筛选树输入.jpg
图片点击可在新窗口打开查看


我通过点选父节点“黄队”
选择了所有人,然后点确定
按钮将所有人的姓名输入到
文本框,但“黄队”也输入了
如何修改代码,让只输入队员。

下边是确定按钮代码:

Dim tb1 As WinForm.TextBox = e.Form.Controls("TextBox1")

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 & "," & nd.Text
    End If
Next

tb1.value = s.trim(",")

--  作者:大红袍
--  发布时间:2015/8/20 17:27:00
--  

Dim tb1 As WinForm.TextBox = e.Form.Controls("TextBox1")


Dim s As String
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.allNodes
    If nd.Level > 0 Then
        If nd.Checked Then
            s = s & "," & nd.Text
        End If
    End If
Next


tb1.value = s.trim(",")

 


--  作者:ehomecd
--  发布时间:2015/8/20 17:28:00
--  
谢谢