以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么通过代码选定指定目录树节点？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170111)
--  作者：昱飞哥
--  发布时间：2021/7/13 10:04:00
--  [求助]怎么通过代码选定指定目录树节点？
比方，我有个目录树，如下图：

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

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

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

我本来是想先用变量保存第一次选中的节点的“FullPath”，然后再查找目录树，但不知道代码怎么写
--  作者：有点蓝
--  发布时间：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))
next
end if
tr.SelectedNode =nd