Foxtable(狐表)用户栏目专家坐堂 → 以下是自己做的筛选窗口,如何实现满足多条件筛选


  共有9887人关注过本帖树形打印复制链接

主题:以下是自己做的筛选窗口,如何实现满足多条件筛选

帅哥哟,离线,有人找我吗?
02010993
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:8 积分:149 威望:0 精华:0 注册:2012/5/12
以下是自己做的筛选窗口,如何实现满足多条件筛选  发帖心情 Post By:2012/6/27 20:42:00 [只看该作者]

单一条件中的多项可以实现筛选,如何实现条件1+条件2+条件3同时满足的代码。跪求大侠帮助~~~~

给点灵感,谢谢!!!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目001.zip

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目001.zip


 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4771 积分:34663 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2012/6/27 21:50:00 [只看该作者]

Dim s As String
Dim s1 As String() = {e.Form.Controls("bm").Value,e.Form.Controls("xb").Value,e.Form.Controls("ht").Value,e.Form.Controls("zc").Value}
Dim s2 As String() = {"第二列","第四列","第五列","第六列"}
    For i As Integer = 0 To s1.Length-1
        If s1(i) Is Nothing
            Continue For
        End If
        s = s & " And " & s2(i) & " In ('" & s1(i).Replace(",","','") & "')"
    Next
If s > ""
    Tables("表A").Filter = s.TrimStart(" ","A","n","d"," ")
End If


 回到顶部
帅哥哟,离线,有人找我吗?
02010993
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:8 积分:149 威望:0 精华:0 注册:2012/5/12
  发帖心情 Post By:2012/6/27 22:27:00 [只看该作者]

非常感谢y2287958图片点击可在新窗口打开查看

 回到顶部