以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]时间格式查询出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146169)

--  作者: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
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2020/2/18 9:50:00
--  

有没有什么规律?看看生成的条件是否有问题?什么数据库?SqlServer?


            DataTables("投诉工单清单表").LoadFIlter =  " "& e.Form.Controls("查询列").text &" >=  \'" & d.AddSeconds(-1)  & "\'  and   "& e.Form.Controls("查询列").text &"  <=  \'" & d1.AddSeconds(1)  & "\'  "

msgbox(DataTables("投诉工单清单表").LoadFIlter 

            DataTables("投诉工单清单表").Load

[此贴子已经被作者于2020/2/18 9:50:15编辑过]

--  作者:wumingrong1
--  发布时间:2020/2/18 12:43:00
--  

Provider=SQLOLEDB

 


图片点击可在新窗口打开查看此主题相关图片如下:360截图20200218124137774.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2020/2/18 13:53:00
--  
3楼是正常查询弹出的,还是出错的时候弹出的?
--  作者:wumingrong1
--  发布时间:2020/2/18 17:17:00
--  
出错的时候弹出
--  作者:有点蓝
--  发布时间:2020/2/18 17:44:00
--  
可能有其它事件影响了。新建一个项目加载这个表,单独测试有没有问题?
--  作者:wumingrong1
--  发布时间:2020/2/18 17:55:00
--  

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