- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何展开节点 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14497)
-- 发布时间：2011/11/22 8:34:00
-- 如何展开节点
如何展开目录树所包含某个关键字的节点？如 广东省\\广州市 广东省\\深圳市，只展开节点标题包含“州”的节点。
-- 发布时间：2011/11/22 8:41:00
--
http://www.foxtable.com/help/topics/2302.htm
-- 发布时间：2011/11/22 12:10:00
--
但是不能展开节点的。
-- 发布时间：2011/11/22 12:11:00
--
http://www.foxtable.com/help/topics/0910.htm
-- 发布时间：2011/11/22 12:28:00
--
Dim 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
这个代码有什么问题？
-- 发布时间：2011/11/22 12:29:00
--
我想展开包含“液晶电视”的所有节点？附件是“目录树管理”。
[此贴子已经被作者于2011-11-22 12:29:39编辑过]
-- 发布时间：2011/11/22 12:33:00
--
测试正常，可以展开···
-- 发布时间：2011/11/22 12:35:00
--
以下是引用mr725在2011-11-22 12:33:00的发言：
测试正常，可以展开···
不会吧，我展开的截图是这样的。
此主题相关图片如下：未命名.bmp
-- 发布时间：2011/11/22 12:39:00
--
我想出现的截图是这样的。
此主题相关图片如下：未命名.bmp
-- 发布时间：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