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