以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  根据目录树的text进行筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65518)

--  作者:新航程小何
--  发布时间:2015/3/17 16:52:00
--  根据目录树的text进行筛选

各位老师,我想实现通过目录树的text值进行筛选,具体实现的功能如截图,

图中的北京华联和西太华都售卖肉类和水果,我现在想分别筛选出两个超市的肉类清单,可是我现在只能筛选出第一级,第二级名称是一样的,所以请老师帮助一下

If e.Node.Text <> "" Then\'标题的值
    Select Case e.Node.text
        Case "西太华"
           
            Tables("清单_Table2").DataSource = DataTables("西太华清单")
            
        Case "北京华联"
           
            Tables("清单_Table2").DataSource = DataTables("北京华联清单")    
    End Select
End If


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150317164633.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2015/3/17 17:06:00
--  
不明白你的意思.
--  作者:有点甜
--  发布时间:2015/3/17 17:07:00
--  
If e.Node.FullName.Contains("西太华") Then
    Tables("清单_Table2").DataSource = DataTables("西太华清单")
Else If e.Node.FullName.Contains("北京华联") Then
    Tables("清单_Table2").DataSource = DataTables("北京华联清单")
End If
Dim filter As String
Select Case e.Node.Level
    Case 0
        filter = ""
    Case 1
        Select Case e.node.Text
            Case "肉类清单"
                filter = "种类 = \'肉类\'"
            Case "水果清单"
                filter = "种类 = \'水果\'"
        End Select
End Select
Tables("清单_Table2").filter = filter

 


--  作者:新航程小何
--  发布时间:2015/3/17 17:11:00
--  

老师,我的意思简单说就是,当在目录树中选中“北京华联”的时候,筛选北京华联的售货清单,紧接着选择“肉类”就筛选出“北京华联“的”肉类“售货清单

 


--  作者:有点甜
--  发布时间:2015/3/17 17:11:00
--  
就是这个意思啊
--  作者:新航程小何
--  发布时间:2015/3/17 17:18:00
--  
恩恩,甜老师,我在给bin老师解释,可能表达的不清楚,谢谢