主题：[求助] 加载数据表公式

我的外部数据源是：Access ; 以下命令该怎么修改？

 

e.Sender.ComboList = DataTables("网管导出光功率数据表").SQLGetComboListString("数据日期")

e.Sender.ComboList = DataTables("网管导出光功率数据表").SQLGetComboListString("format(数据日期, 'yyyy-MM-dd')")

 如果我的内容是 CheckedComboBox 复选框；我的命令该怎么改？

 

Dim t As Table = Forms("管控导单组主窗口").Controls("Table3").Table

If e.Form.Controls("列名").text > "" Then
   e.Sender.ComboList = t.DataTable.SQLGetComboListString(e.Form.Controls("列名").text)
End If

 

此主题相关图片如下：360截图20170508144211545.jpg

 命令不用改，现在有什么问题？

加载不到任何数据

 

 

此主题相关图片如下：360截图20170508150919412.jpg

 贴出你写的查询代码。

Dim tj1 As String = e.Form.Controls("列名").text
Dim nr1 As String = e.Form.Controls("内容").text

Dim dr As Table = CurrentTable

If e.Form.Controls("列名").text  <>  ""  And e.Form.Controls("内容").text  <>  ""   Then

DataTables(""& CurrentTable.name &"").LoadFIlter =  "  工单号 Is null  Or ( " & tj1 & "  like  '%"& nr1 & "%' ) " ' " & 条件3 & "  like '%" & 内容3 & "%'
DataTables(""& CurrentTable.name &"").Load

Else
MessageBox.show("请输入要查询的完整信息!!!", "非常关键提醒")
End If

Dim tj1 As String = e.Form.Controls("列名").text
Dim nr1 As String = e.Form.Controls("内容").text

If e.Form.Controls("列名").text  <>  ""  And e.Form.Controls("内容").text  <>  ""   Then
    CurrentTable.DataTable.LoadFIlter =  "工单号 Is null Or (" & tj1 & " in ('"& nr1.Replace(",", "','") & "'))"
    CurrentTable.DataTable.Load
   
Else
    MessageBox.show("请输入要查询的完整信息!!!", "非常关键提醒")
End If