主题：查询异常提示

贴出对应的执行导致报错的代码。

参考

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

1、msgbox(filter) 弹出什么？

2、修改红色代码

With e.Form.Controls("开始日期1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "计划日期>= '" & .Value & "'"
    End If
End With
With e.Form.Controls("结束日期1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "计划日期 < '" & .Value.adddays(1) & "'"
    End If
End With

去看你窗口表控件或者表属性beforeLoad事件或者afterLoad或者currentChanged等事件代码

如果写了，贴出代码；如果没有写代码，不可能报错。