以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选结果不准确  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124994)

--  作者:蓝蚂蚁
--  发布时间:2018/9/18 9:12:00
--  筛选结果不准确
Dim Filter As String
With e.Form.Controls("DropBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If        
            Filter = Filter & "地点一 like \'%" & .Value & "%\' Or 地点二 like \'%" & .Value & "%\'"        
    End If
End With
With e.Form.Controls("NumericComboBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "年度 like \'%" & .Value & "%\'"                     
    End If
End With
If Filter > "" Then
    Tables("窗口_Table1").Filter = Filter
End If
这段筛选代码本想实现如下作用:

举例:把地点一或地点二是“深圳”,年度是2018的行筛查出来,但发现有一个年度是2017的也出来了,
变成:年度    地点1   地点2
        2017   深圳
        2018   深圳
        2018             深圳
......
请问老师,是不是代码的问题,该如何处理?









--  作者:有点甜
--  发布时间:2018/9/18 9:46:00
--  

Filter = Filter & "地点一 like \'%" & .Value & "%\' Or 地点二 like \'%" & .Value & "%\'"      

 

改成

 

Filter = Filter & "(地点一 like \'%" & .Value & "%\' Or 地点二 like \'%" & .Value & "%\')"      


--  作者:蓝蚂蚁
--  发布时间:2018/9/18 9:55:00
--  
谢谢 老师 授人以鱼不如授人以渔 请问相关帮助在哪里?再次谢谢
--  作者:有点甜
--  发布时间:2018/9/18 10:14:00
--  
以下是引用蓝蚂蚁在2018/9/18 9:55:00的发言:
谢谢 老师 授人以鱼不如授人以渔 请问相关帮助在哪里?再次谢谢

 

参考

 

http://www.foxtable.com/webhelp/scr/1647.htm