主题：[求助]表条件加载代码出错（已解决）

 是内部表，还是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