Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有2736人关注过本帖树形打印复制链接

主题:[求助]

美女呀,离线,留言给我吧!
danwenxie
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:36 积分:419 威望:0 精华:0 注册:2013/11/25 11:08:00
[求助]  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106011 积分:539142 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/16 11:23:00 [只看该作者]

请按照这种方式设置查询条件:http://www.foxtable.com/webhelp/scr/1058.htm

 回到顶部