以文本方式查看主题

-  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=57997)
--  作者：yyzlxc
--  发布时间：2014/10/9 19:47:00
--  [求助]表条件加载代码出错（已解决）

一段代码，根据窗口的日期和单位的选项对表进行加载，运行出错，提示：标准表达式中数据类型不匹配。如何修改，请各位老师指教，谢谢！

Dim rq As Date = Forms("菜单").Controls("DateTimePicker1").Text \'日期
Dim dw As String = Forms("菜单").Controls("ComboBox1").Text \'单位
Dim filter As String
filter = "日期 = \'" & rq &  "\'"
If dw <> "" Then
    filter = filter & " And 单位 = \'"& dw &"\'"
End If
DataTables("实时采集").LoadFilter = filter
DataTables("实时采集").Load
[此贴子已经被作者于2014-10-9 19:54:01编辑过]
--  作者：有点甜
--  发布时间：2014/10/9 19:50:00
--  

 是内部表，还是access数据库，还是sqlserver？

 

Dim rq As Date = Forms("菜单").Controls("DateTimePicker1").Text \'日期
Dim dw As String = Forms("菜单").Controls("ComboBox1").Text \'单位
Dim filter As String
filter = "日期 = #" & rq &  "#"
If dw <> "" Then
    filter = filter & " And 单位 = \'"& dw &"\'"
End If
DataTables("实时采集").LoadFilter = filter
DataTables("实时采集").Load
--  作者：yyzlxc
--  发布时间：2014/10/9 19:53:00
--  
谢谢甜老师的指教，犯了一个低级错误，是内部表。再次感谢甜老师。