主题：[求助]时间格式查询出错

【时段查询】按钮命令如下、在实际使用中经常出现有时能够正常查询、有事就报错的问题；该怎么修改？

 

Dim d As Date = e.Form.Controls("起始时间").value
Dim d1 As Date = e.Form.Controls("截止时间").value
'Dim d2 As Date = e.Form.Controls("筛选类型").value

If e.Form.Controls("查询列").text  = "" Then
    MessageBox.show("请选择要加载的【查询列】!!!", "非常关键提醒")
Else
    If e.Form.Controls("起始时间").text  = "" Or e.Form.Controls("截止时间").text  = ""  Then 'Value
        MessageBox.show("请选择要加载的【起始时间】【截止时间】!!!", "非常关键提醒")
    Else

            DataTables("投诉工单清单表").LoadFIlter =  " "& e.Form.Controls("查询列").text &" >=  '" & d.AddSeconds(-1)  & "'  and   "& e.Form.Controls("查询列").text &"  <=  '" & d1.AddSeconds(1)  & "'  "
            DataTables("投诉工单清单表").Load
           
            MessageBox.show("完成【投诉工单清单表】的 加载 工作!!!", "非常关键提醒")

       
    End If
End If

 

Tables("投诉工单清单表").Sort = "工单类型1,创单时间"

 

 

 

 

 

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

Provider=SQLOLEDB

 

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

出错的时候弹出

它是有时会弹出错误；有时又不会、能够正常加载到数据