此主题相关图片如下:不能显示的记录.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