以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  按值筛选（疑问）  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=9067)
--  作者：migold
--  发布时间：2011/1/29 14:29:00
--  按值筛选（疑问）

请见：本页地址：http://help.foxtable.com/topics/2177.htm

 

我在销售表中，使用发现：

（1）首先筛选

[职员名称] = \'郑晓频\'

（2）按值筛选，选择

[库房编码] In (\'B\')

 

 

结果，我打开“编辑筛选表达式”，发现是：[库房编码] In (\'B\')

正常应该是：([职员名称] = \'郑晓频\') And [库房编码] In (\'B\')

导致筛选结果不正确，请问为什么会这样????

 
--  作者：狐狸爸爸
--  发布时间：2011/1/30 9:05:00
--  
按值筛选会先取消原来的筛选的，你颠倒顺序操作看看
--  作者：migold
--  发布时间：2011/1/30 9:14:00
--  

我变通了一下：将按钮代码改为

Dim a,b As String
a = CurrentTable.Filter
If a IsNot Nothing AndAlso a <> "" Then
    Syscmd.Filter.Values()
    b = CurrentTable.Filter
    If b IsNot Nothing AndAlso b <> "" AndAlso a <> b Then
        CurrentTable.Filter = "(" & a & ") And (" & b & ")"
    End If
Else
    Syscmd.Filter.Values()
End If