以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：树型复选框选择的问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120863)
--  作者：jiterp
--  发布时间：2018/6/25 12:59:00
--  求助：树型复选框选择的问题？
在下图中，我要实现点一下“确定”按钮，得到选择的值为:  国际销售,国内销售,大客户部,研发部,PMC部   
就是说,只要是末阶的选中值才纳入进来,下图中的销售部不是末阶,不应该纳入进来.


图片点击可在新窗口打开查看此主题相关图片如下：2018062501.png
图片点击可在新窗口打开查看

我的代码是这样写的,结果得到的值是:  销售部,国际销售,国内销售,大客户部,研发部,PMC部    ,这是哪里有问题?

Dim s As String
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd1 As WinForm.TreeNode = trv.SelectedNode
Dim dr As DataRow = nd1.DataRow  \'获取生成此节点的DataRow
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        If dr("末阶标志") = True Then  \'只要当前复选框的记录是末阶标志
            s = s & "," & nd.Text
        End If
    End If
Next
e.Form.DropDownBox.Value = s.trim(",")
e.Form.DropDownBox.CloseDropdown


[此贴子已经被作者于2018/6/25 14:50:06编辑过]
--  作者：有点甜
--  发布时间：2018/6/25 14:59:00
--  
If nd.nodes.count=0 Then  \'只要当前复选框的记录是末阶标志
--  作者：jiterp
--  发布时间：2018/6/25 15:09:00
--  
谢谢