以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于目录树展开与闭合的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15033)

--  作者:kevin
--  发布时间:2011/12/10 13:23:00
--  关于目录树展开与闭合的问题

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


图片点击可在新窗口打开查看此主题相关图片如下: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
--  发布时间:2011/12/10 14:35:00
--  
貌似有点难。
--  作者:kevin
--  发布时间:2011/12/10 14:39:00
--  

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

你得帮帮我呀,


--  作者:古奇
--  发布时间:2011/12/10 15:40:00
--  

    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

[此贴子已经被作者于2011-12-10 15:40:52编辑过]

--  作者:czy
--  发布时间:2011/12/10 17:36:00
--  

BeforeExpandNode事件代码:


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


--  作者:sloyy
--  发布时间:2012/3/28 1:40:00
--  
我试过此代码很简练,但有一个小毛病:要双击才能实现楼主要求的功能,如果我想改为单击就能实现此功能,要怎么改呢?