关于TreeView选取值的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于TreeView选取值的问题

共有4160人关注过本帖树形打印复制链接主题：关于TreeView选取值的问题

hongye

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：437 积分：2943 威望：0 精华：0 注册：2011/3/15 12:49:00

关于TreeView选取值的问题 发帖心情

Post By：2022/4/16 1:06:00 [只看该作者]

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

学习了TreeView的选取代码

For Each nd As WinForm.TreeNode In e.node.AllNodes '同步子节点选中状态
    If nd.FullPath.StartsWith(e.node.FullPath) Then
        nd.Checked = e.node.Checked
    End If
Next
If e.node.Checked = False Then '如果本次操作为清除节点选中状态
    Dim pd As WinForm.TreeNode = e.node.ParentNode '获取父节点
    Do While pd IsNot Nothing
        pd.Checked = False '清除父节点选中状态
        pd = pd.ParentNode '继续获取上一层级的父节点
    Loop
End If

但是发现问题

1，先取字节点后，不能同步上一级节点，请问怎么改代码？

2，选取上一级节点后，在DropDownBox的框里除了有子节点的值还有上一级节点的值，我只需要子节点的数据，请问如何取值？

3，取值我的想法是按我选取的顺序在DropDownBox的框里排序，有什么办法？

[此贴子已经被作者于2022/4/16 1:10:13编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/16 9:13:00 [只看该作者]

1、

If e.node.Checked = False Then '如果本次操作为清除节点选中状态
    Dim pd As WinForm.TreeNode = e.node.ParentNode '获取父节点
    Do While pd IsNot Nothing
        pd.Checked = False '清除父节点选中状态
        pd = pd.ParentNode '继续获取上一层级的父节点
    Loop
End If

改为

    Dim pd As WinForm.TreeNode = e.node.ParentNode '获取父节点
    Do While pd IsNot Nothing
        pd.Checked = e.node.Checked
        pd = pd.ParentNode '继续获取上一层级的父节点
    Loop

2、如果是指获取最底层的节点

方法1、判断层数：http://www.foxtable.com/webhelp/topics/0907.htm

方法2、判断是否有子节点：http://www.foxtable.com/webhelp/topics/0887.htm

if e.node.nodex.count = 0 then

msgbox(“最底层节点”)

endif

3、要做递归，先遍历所有的第一层节点，判断有子节点的，递归遍历子节点的节点