以文本方式查看主题 - 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 做个日期型的查询,有些在日期区域内的记录,不知道为什么没能显示出来,求大神帮忙。 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 |