- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=132194)
-- 发布时间：2019/3/16 11:06:00
-- [求助]
此主题相关图片如下：不能显示的记录.jpg
做个日期型的查询，有些在日期区域内的记录，不知道为什么没能显示出来，求大神帮忙。
能显示和不能显示的内容在附件中，
此主题相关图片如下：能查到的数据.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