以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15717)

--  作者:球球
--  发布时间:2012/1/8 8:52:00
--  筛选问题

表A里面A列有很多数据,能不能实现同时筛选二个条件值,如:A列中有1、2、3、4、5、6 , 我想筛选出1和6的数据如何筛选,帮助的文件只能对一个列对一个相同的内容进行筛选,不能对二个条件进行筛选。


--  作者:czy
--  发布时间:2012/1/8 11:31:00
--  
Tables("表A").Filter = "[A] In (\'1\',\'6\')"
--  作者:球球
--  发布时间:2012/1/8 12:40:00
--  

我建立一个筛选窗口

 

 

在筛选窗口中建立二个文本输入框,

 

输入二个筛选内容

 

单击确定按钮

 

这个确定按钮要如何写代码请帮助我一下。


--  作者:小猪鑫鑫
--  发布时间:2012/1/8 16:50:00
--  
楼主:试试这个,也许能让你有点启发
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自定义高级筛选.table


--  作者:狐狸爸爸
--  发布时间:2012/1/9 8:04:00
--  

还可以看看:

http://www.foxtable.com/help/topics/0118.htm

http://www.foxtable.com/help/topics/2410.htm

 


--  作者:球球
--  发布时间:2012/1/9 8:20:00
--  

狐狸爸爸给出来的帮助对我很有用,在这之前我看过到了这个帮助还有4楼提供的高级筛选

 

实际上我的要求很简单,就是建立二个文本框,输入只针对A表,A列的相关内容,在单击确定后对这二个文本框的内容进行筛选

 

例如狐狸爸爸写的帮助,要用复选的方式进行筛选,我的数据量很大,如果我用高级筛选,在我建立的窗口后就要先进行选定表,如果只放二个文本框,只针对一个表这样就会很方便,但是我还不会写,所在就要很麻烦狐狸爸爸


--  作者:狐狸爸爸
--  发布时间:2012/1/9 8:51:00
--  

如果这样,更加简单,窗口插入两个文本框,一个按钮,按钮代码为:

 

 

Dim flt As String
If e.Form.Controls("TextBox1").value IsNot Nothing Then
    flt = "第一列 = \'" & e.Form.Controls("TextBox1").value & "\'"
End If
If e.Form.Controls("TextBox2").value IsNot Nothing Then
    If flt > "" Then
        flt  = flt & " Or "
    End If
    flt = flt & "第一列 = \'" & e.Form.Controls("TextBox2").value & "\'"
End If
If flt > "" Then
    Tables("表A").Filter = flt
End If


--  作者:球球
--  发布时间:2012/1/9 9:17:00
--  

谢谢狐狸爸爸