-- 作者:wumingrong1
-- 发布时间:2020/2/18 9:16:00
-- [求助]时间格式查询出错
【时段查询】按钮命令如下、在实际使用中经常出现有时能够正常查询、有事就报错的问题;该怎么修改?
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
|