[浏览完整版]
标题：如何展开节点
1楼
lihe60 发表于：2011/11/22 8:34:00如何展开目录树所包含某个关键字的节点？如 广东省\广州市 广东省\深圳市，只展开节点标题包含“州”的节点。
2楼
狐狸爸爸 发表于：2011/11/22 8:41:003楼
lihe60 发表于：2011/11/22 12:10:00但是不能展开节点的。
4楼
狐狸爸爸 发表于：2011/11/22 12:11:005楼
lihe60 发表于：2011/11/22 12:28:00Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Text.IndexOf("液晶电视")>= 0 Then
trv.Nodes(nd.Text.IndexOf("液晶电视")).Expand()
End If
Next
这个代码有什么问题？
6楼
lihe60 发表于：2011/11/22 12:29:00我想展开包含“液晶电视”的所有节点？附件是“目录树管理”。
[此贴子已经被作者于2011-11-22 12:29:39编辑过]
7楼
mr725 发表于：2011/11/22 12:33:00测试正常，可以展开···
8楼
lihe60 发表于：2011/11/22 12:35:00以下是引用mr725在2011-11-22 12:33:00的发言：
测试正常，可以展开···
不会吧，我展开的截图是这样的。
此主题相关图片如下：未命名.bmp
9楼
lihe60 发表于：2011/11/22 12:39:00我想出现的截图是这样的。
此主题相关图片如下：未命名.bmp
10楼
mr725 发表于：2011/11/22 13:23:00间接展开：
Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Text.IndexOf("液晶电视") >= 0 Then
trv.Selectednode = nd
Exit For
End If
Next