如何根据找到的目录树节点的路径选中该节点？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何根据找到的目录树节点的路径选中该节点？

共有4072人关注过本帖树形打印复制链接主题：如何根据找到的目录树节点的路径选中该节点？

有点蓝

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

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

Post By：2020/1/10 23:13:00 [显示全部帖子]

简单一点可以

Dim str As String = "一级目录\二级目录\三级目录"

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

For Each n As winform.treenode In tr.AllNodes

If n.Level = 2 AndAlso n.FullPath = str Then

tr.SelectedNode = n

Exit For

End If

有点蓝

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

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

Post By：2020/1/10 23:36:00 [显示全部帖子]

Dim spxx_spfl As WinForm.TreeView = Forms("商品信息").Controls("TreeView_SPfl")

Dim td As WinForm.TreeNode

For Each td In spxx_spfl.AllNodes

If td.FullPath = txtfl Then '如果找到了目标节点

msgbox(td.FullPath) ‘能弹出来？

spxx_spfl.SelectedNode = td

td.EnsureVisible()

e.Form.Close()

Exit For

End If

主题：如何根据找到的目录树节点的路径选中该节点？