以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132194)

--  作者:danwenxie
--  发布时间:2019/3/16 11:06:00
--  [求助]

图片点击可在新窗口打开查看此主题相关图片如下:不能显示的记录.jpg
图片点击可在新窗口打开查看
做个日期型的查询,有些在日期区域内的记录,不知道为什么没能显示出来,求大神帮忙。

能显示和不能显示的内容在附件中,
图片点击可在新窗口打开查看此主题相关图片如下:能查到的数据.jpg
图片点击可在新窗口打开查看
代码如下:

Dim bm As WinForm.ComboBox = e.Form.Controls("部门")
Dim sbxx As WinForm.ComboBox = e.Form.Controls("社保信息")

Dim xm As WinForm.ComboBox = e.Form.Controls("姓名")
Dim kssj As WinForm.DateTimePicker = e.Form.Controls("开始时间")
Dim jssj As WinForm.DateTimePicker = e.Form.Controls("结束时间")

If bm.Value Is Nothing  And sbxx.Value Is Nothing  And xm.Value Is Nothing  And kssj.Value Is Nothing  And jssj.Value Is Nothing Then
    Tables("基本信息表").Filter ="[离职日期] is null"
    Return
Else
    Tables("基本信息表").Filter = "([部门] like \'*"& bm.text &"\' and [社保信息] like \'*"& sbxx.text &"\' and [姓名] like \'*"& xm.text &"\'and [入职日期]<=\'"& jssj.Value &"\' and [离职日期] >= \'"& kssj.Value &"\')"
End If


--  作者:有点蓝
--  发布时间:2019/3/16 11:23:00
--  
请按照这种方式设置查询条件:http://www.foxtable.com/webhelp/scr/1058.htm