根据目录树的text进行筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 根据目录树的text进行筛选

共有2809人关注过本帖树形打印复制链接主题：根据目录树的text进行筛选

新航程小何

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00

根据目录树的text进行筛选 发帖心情

Post By：2015/3/17 16:52:00 [只看该作者]

各位老师，我想实现通过目录树的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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/3/17 17:06:00 [只看该作者]

不明白你的意思.

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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