关于目录树展开与闭合的问题：目录中有四个筛选条件，点击某个条件的时候，关闭其它筛选条件，，，，

此主题相关图片如下：qq截图20111210131943.png

Dim Value()As String
Dim zc As String,fl As String
MainTable = Tables("kehu")
With Tables("kehu")
   
    If e.Node.Level=1 Then
        Return
    End If  
    zc=""
    Value = e.Node.FullPath.Split("\\")

    Select Case e.Node.Level
        Case 1
            Select Case Value(0)
                Case "加载全部记录"
                Case "所属区域"
                    fl="[所属区域]=\'"
                    zc =fl & Value(1) & "\'"                 
                Case "客户分类"
                    fl="[客户分类]=\'"
                    zc =fl & Value(1) & "\'"   
                Case "客户类型"
                    fl="[客户类型]=\'"
                    zc =fl & Value(1) & "\'"   
                Case "业务员"
                    fl="[业务员]=\'"
                    zc =fl & Value(1) & "\'"                   
            End Select
    
        Case 2
            Select Case  Value(0)
                Case "加载全部记录"
                Case "所属区域"
                    fl="[所属区域]=\'"
                    zc =fl & Value(1) & "\' And [客户名称] = \'" & Value(2) & "\'"
                   
                Case "客户分类"
                    fl="[客户分类]=\'"
                    zc =fl & Value(1) & "\' And [客户名称] = \'" & Value(2) & "\'"    

                Case "客户类型"
                    fl="[客户类型]=\'"
                    zc =fl & Value(1) & "\' And [客户名称] = \'" & Value(2) & "\'"   

                Case "业务员"
                    fl="[业务员]=\'"
                    zc =fl & Value(1) & "\' And [客户名称] = \'" & Value(2) & "\'"                
            End Select       
    End Select

\' MessageBox.Show(e.Node.Name & "|" & zc & "|" & e.Node.FullPath)
    If e.Node.Name="加载全部记录" Then
        zc=""
    End If  
       .Filter =zc
End With

CZY老师无情不能说难呀，什么问题到您这都是化解开来，

你得帮帮我呀，

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

    Dim cnt As Integer  = trv.Nodes.Count - 1
    For i As Integer = cnt To 0 Step -1
        For Each nd As WinForm.TreeNode In trv.AllNodes
            If nd.Level = e.Node.Level AndAlso nd.FullPath <> e.Node.FullPath Then
                trv.Nodes(i).CollapseAll()
            End If
        Next
        e.Node.Expand()
    Next

BeforeExpandNode事件代码：

Static i As Integer
If i <> e.Sender.SelectedNode.Index
    e.Sender.Nodes(i).Collapse()
    i = e.Sender.SelectedNode.Index
End If