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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 包含与多值筛选

共有8109人关注过本帖树形打印复制链接主题：包含与多值筛选

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

包含与多值筛选 发帖心情

Post By：2012/4/15 14:22:00 [显示全部帖子]

以下2段筛选代码单独使用没有问题,我想将这2段代码合并在一起,组成包含与多值筛选,试了一下,老不成功,特此求助,代码按钮在表A窗口

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目8.table

'模糊包含
Dim Filter As String
With e.Form.Controls("姓名")
    If .Value IsNot Nothing Then
        Filter = "姓名 Like '*" & .Value & "*'"
    End If
End With
Tables("表A").filter = Filter

'多值筛选
Dim Filter As String = e.Form.Controls("姓名").Value
If Filter > "" Then
    If Filter.Contains(",") Then
        Filter = "'" & Filter.Replace(",","','") & "'"
        Tables("表A").Filter = "[姓名] In (" & Filter & ")"
    Else
        Tables("表A").Filter = "[姓名] = '" & Filter & "'"
    End If
End If