Foxtable(狐表)用户栏目专家坐堂 → 求助:树型复选框选择的问题?


  共有1955人关注过本帖树形打印复制链接

主题:求助:树型复选框选择的问题?

帅哥哟,离线,有人找我吗?
jiterp
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:715 积分:8574 威望:0 精华:0 注册:2011/11/13 15:49:00
求助:树型复选框选择的问题?  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/25 14:59:00 [只看该作者]

If nd.nodes.count=0 Then  '只要当前复选框的记录是末阶标志

 回到顶部
帅哥哟,离线,有人找我吗?
jiterp
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:715 积分:8574 威望:0 精华:0 注册:2011/11/13 15:49:00
  发帖心情 Post By:2018/6/25 15:09:00 [只看该作者]

谢谢

 回到顶部