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

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

共有4167人关注过本帖树形打印复制链接主题：关于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编辑过]

hongye

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

加好友

发短信

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

Post By：2022/4/16 11:00:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:面料系统.foxdb

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

上面这个代码好像不行，如果同一层级上有两个子节点，应该是全部选取才能让上级节点勾上

if e.node.nodex.count = 0 then

msgbox(“最底层节点”)

endif

这个代码也不能用