专家坐堂-[求助][原创]错误提示，求解决办法Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助][原创]错误提示，求解决办法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22733)

--  作者：hdf0913
--  发布时间：2012/8/22 15:12:00
--  [求助][原创]错误提示，求解决办法

此主题相关图片如下：n6i623czl9dzzc524e4.jpg

一进去打开采购表就这个提示，什么意思，应该怎么解决

--  作者：狐狸爸爸
--  发布时间：2012/8/22 16:01:00
--
你的筛选表达式有问题，如果搞不定，将文件传上来，我帮你检查一下。

--  作者：hdf0913
--  发布时间：2012/8/22 17:51:00
--

以下是引用狐狸爸爸在2012-8-22 16:01:00的发言：
你的筛选表达式有问题，如果搞不定，将文件传上来，我帮你检查一下。

筛选代码

Dim Filter As String
With e.Form.Controls("Combdanhao")
    If .Value IsNot Nothing Then
        Filter = "采购单号 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("Combgys")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "供应商 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("Combhuohao")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "货号 = \'" & .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

--  作者：jianjingmaoyi
--  发布时间：2012/8/22 19:34:00
--
采购单号是逻辑列?

--  作者：woiz
--  发布时间：2012/8/23 0:09:00
--
估计还是数据类型之类的出错了