主题：语法解法

'用代码批量生成[根目录]
Dim ary1() = {"产品","客户","雇员"}

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
trv.nodes.Clear
Dim dt As DataTable
Dim cmd As new SQLCommand
For i As Integer = 0 To ary1.length-1
    nd=trv.nodes.Add(Ary1(i))
    Select Case nd.name
        Case "产品"
            cmd.CommandText="select distinct 产品 from {订单}"
            dt=cmd.ExecuteReader
            For Each dr As DataRow In dt.DataRows
                nd.nodes.add(dr("产品"))
            Next
        Case "客户"          
            Dim ary2() = {"外部","内部"}
            For i1 As Integer = 0 To ary2.length-1
                nd.nodes.add(ary2(i1))
            Next
    End Select
Next

比如我在窗口中创建了导航栏，在不同导航栏的页面中添加了目录树，我不想在打开窗口后就生成目录树，而是想选择不同的导航页面后，生成不同的目录树？

Dim bavb As WinForm.NavBar = e.Form.Controls("NavBar1")

Select bavb.SelectedPage.Name

    Case "产品"

        Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

        Dim nd,nd1 As WinForm.TreeNode

        Dim st1()={"A产品","B产品"}

        For i As Integer = 0 To st1.length-1

            nd=trv.nodes.add(st1(i))

        Next

    Case "客户"

        Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")

        Dim nd,nd1 As WinForm.TreeNode

        Dim st1()={"A客户","B客户"}

        For i As Integer = 0 To st1.length-1

            nd=trv.nodes.add(st1(i))

        Next

End Select

为什么我想切换一次导航栏的页面就会重复生成我的目录树，请问下怎么实现我切换导航栏页面后不会重复生成目录树

谢谢老师，我已解决，主要原因是忘了清除目录树

请问下，如何自动实现，选择本节点后，展开本节点下的子节点，自动关闭其他节点

循环本节点的父节点的所有其他子节点，关闭：http://www.foxtable.com/webhelp/scr/0909.htm

没看懂，请问下有案例没

AfterSelectNode

Dim p As WinForm.TreeNode = e.node.ParentNode

If p.IsNot Nothing Then

    For Each n As WinForm.TreeNode In p.Nodes

        If n <> e.Node Then

            n.CollapseAll

        End If

    Next

End If

e.node.ExpandAll

此主题相关图片如下：节点错误.png

回168楼，nd1.Nodes("内部")这句有问题，nd1是新增的节点，还没有任何子节点