请教：在treeview 中打开一个节点，如何做到同时关闭其他节点？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教：在treeview 中打开一个节点，如何做到同时关闭其他节点？

共有4554人关注过本帖树形打印复制链接主题：请教：在treeview 中打开一个节点，如何做到同时关闭其他节点？

有点蓝

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

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

Post By：2020/3/27 15:58:00 [显示全部帖子]

到AfterExpandNode事件遍历当前节点的父节点的所有子节点，如果不是当前节点就收缩

有点蓝

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

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

Post By：2020/3/27 16:18:00 [显示全部帖子]

先自己写，哪里有问题再把代码发上来看看

有点蓝

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

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

Post By：2020/3/28 11:00:00 [显示全部帖子]

Dim pd As WinForm.TreeNode = e.node.ParentNode

if pd is nothing then

For Each nd As WinForm.TreeNode In e.sender.nodes

If nd.name <> e.node.name Then

nd.CollapseAll()

End If

else

For Each nd As WinForm.TreeNode In pd.nodes

If nd.name <> e.node.name Then

nd.CollapseAll()

End If

end if

主题：请教：在treeview 中打开一个节点，如何做到同时关闭其他节点？