[求助]怎么通过代码选定指定目录树节点？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎么通过代码选定指定目录树节点？

共有2085人关注过本帖树形打印复制链接主题：[求助]怎么通过代码选定指定目录树节点？

昱飞哥

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

等级：小狐帖子：326 积分：2519 威望：0 精华：0 注册：2020/3/2 23:15:00

[求助]怎么通过代码选定指定目录树节点？ 发帖心情

Post By：2021/7/13 10:04:00 [只看该作者]

比方，我有个目录树，如下图：

此主题相关图片如下：1.jpg

注意：该目录树有重复的节点名称。

我要实现的效果：

比方我先选中如图节点“12”，然后我再选中其他任一节点，我需要按一下按钮“button”，让该目录树自动选中原来选中的节点“12”

我本来是想先用变量保存第一次选中的节点的“FullPath”，然后再查找目录树，但不知道代码怎么写

有点蓝

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

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

Post By：2021/7/13 10:18:00 [只看该作者]

AfterSelectNode事件

vars("p") = e.node.FullPath

按钮事件

if vars("p") > "" then

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")

dim s1() as string = vars("p").split("\")

dim nd as WinForm.TreeNode = tr.nodes(s1(0))

for i as integer = 1 to s1.length - 1

nd = nd.nodes(s1(i))

end if

tr.SelectedNode =nd

主题：[求助]怎么通过代码选定指定目录树节点？