| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如果在打开的目录树中，选中某个值的节点 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71230) |
| -- 作者：包头123 -- 发布时间：2015/7/7 17:34:00 -- 如果在打开的目录树中，选中某个值的节点 版主： 如果在打开的目录树中，选中某个值的节点？选择的目的是，在右边的表格中显示与节点相关的表信息。 我用下述语句不行：
Dim tr As WinForm.TreeView = Forms("省市县乡窗口").Controls("TreeView1")
tr.ExpandAll()
Dim nd As WinForm.TreeNode = tr.Nodes( “左权县”) ‘获取名为“左权县”的节点
tr.SelectedNode = nd \'选择目录树中的“左权县” 请教问题出到那里？ |
| -- 作者：大红袍 -- 发布时间：2015/7/7 17:40:00 -- 呃，代码没什么问题，你的 左权县 必须是第一层才有效。
|
| -- 作者：大红袍 -- 发布时间：2015/7/7 17:42:00 -- Dim tr As WinForm.TreeView = Forms("省市县乡窗口").Controls("TreeView1") tr.ExpandAll() Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") For Each nd As WinForm.TreeNode In trv.AllNodes If nd.text = "左权县" Then tr.SelectedNode = nd Exit For End If Next |
| -- 作者：包头123 -- 发布时间：2015/7/7 17:43:00 -- 我说怎么就找不到呢，如果在第二层或者的三层如何写代码呢？ |
| -- 作者：包头123 -- 发布时间：2015/7/7 17:43:00 -- 论坛上好像也未找到类似的帖子。 |
| -- 作者：大红袍 -- 发布时间：2015/7/7 17:45:00 -- 看3楼 |
| -- 作者：包头123 -- 发布时间：2015/7/7 17:45:00 -- 谢谢了，我试试。 |
| -- 作者：包头123 -- 发布时间：2015/7/7 17:47:00 -- 成功了，非常感谢版主。 |