主题：关于目录树展开与闭合的问题

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

此主题相关图片如下：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

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

貌似有点难。

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

我试过此代码很简练,但有一个小毛病:要双击才能实现楼主要求的功能,如果我想改为单击就能实现此功能,要怎么改呢?