以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教一个关于目录树的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58696)
--  作者：czy66ds
--  发布时间：2014/10/22 13:48:00
--  请教一个关于目录树的问题
代码：
Dim tv1 As WinForm.TreeView
tv1 =e.Form.Controls("TreeView1")
tv1.BuildTree("目录表B", "品牌|分类","","品牌,分类 DESC")
\'---展开全部节点------
tv1.ExpandAll
\'---------------------
Dim tv2 As WinForm.TreeView
tv2 =e.Form.Controls("TreeView2")
tv2.BuildTree("目录表A", "品牌|分类|操作")

tv1展开了全部节点，我想把tv2d的节点全部展开到第一级（展开到“分类”），改如何写代码？
--  作者：feiyu988
--  发布时间：2014/10/22 14:22:00
--  
For Each nd As WinForm.TreeNode In trv.Nodes
    If nd.level = 0 OrElse nd.level = 1 Then
        nd.Expand
    End If
Next
--  作者：feiyu988
--  发布时间：2014/10/22 14:22:00
--  
For Each nd As WinForm.TreeNode In tv2.Nodes
    If nd.level = 0 OrElse nd.level = 1 Then
        nd.Expand
    End If
Next
--  作者：czy66ds
--  发布时间：2014/10/22 14:39:00
--  
谢谢热心的朋友。
我也想通了，得用循环：
tv2 =e.Form.Controls("TreeView2")
tv2.BuildTree("目录表A", "品牌|分类|操作")
Dim nd As WinForm.TreeNode
For Each nd In tv2.AllNodes
If  nd.Level = 0 Then
nd.Expand
End If
Next