以文本方式查看主题

-  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=184255)

--  作者:seal51
--  发布时间:2022/11/30 10:47:00
--  筛选代码

图片点击可在新窗口打开查看此主题相关图片如下:snipaste_2022-11-30_10-44-09-5151.jpg
图片点击可在新窗口打开查看


开始筛选的代码如何,怎么查询不出来任何数据呢?

Dim Filter As String
With e.Form.Controls("syth")
        If .Value IsNot Nothing Then
                If Filter > "" Then
                        Filter = Filter & " And "
                End If
                Filter = Filter & "世源图号 like \'*" & .Value & "*\'"
        End If
End With
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "订购日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "订购日期 <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("订单明细表").Filter = Filter
End If

--  作者:seal51
--  发布时间:2022/11/30 10:50:00
--  
想查询某个时间段某个世源图号的订购数据, 世源图号为手动输入模糊查询
--  作者:有点蓝
--  发布时间:2022/11/30 10:56:00
--  
说明没有加载符合这个查询条件的数据

msgbox(Filter)

--  作者:seal51
--  发布时间:2022/12/2 9:48:00
--  
写得代码哪个地方有问题呢?
--  作者:有点蓝
--  发布时间:2022/12/2 9:49:00
--  
代码没有问题,没有符合下面条件的数据

msgbox(Filter)

--  作者:seal51
--  发布时间:2022/12/2 9:52:00
--  
输入图号,可以筛选出来,但是输入开始日期,结束日期,就仵内容了



--  作者:seal51
--  发布时间:2022/12/2 9:54:00
--  
世源图号like \'*06X*’And订购日期>= #2022-01-01# And订购日期<=#2022-12-02#


--  作者:有点蓝
--  发布时间:2022/12/2 9:57:00
--  
没有同时符合这3个条件的数据
--  作者:seal51
--  发布时间:2022/12/2 10:11:00
--  
但是订单明细表里有为何筛选不出来, 这个是精确查询吗, 世源图号模糊查询如何写
--  作者:有点蓝
--  发布时间:2022/12/2 10:12:00
--  
like就是模糊查询