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

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

此主题相关图片如下：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老师无情不能说难呀，什么问题到您这都是化解开来，

你得帮帮我呀，