[求助]关于长日期问题（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于长日期问题（已解决）

共有2944人关注过本帖树形打印复制链接主题：[求助]关于长日期问题（已解决）

yyzlxc

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

[求助]关于长日期问题（已解决） 发帖心情

Post By：2015/4/14 13:26:00 [只看该作者]

用 Filler 填充表，其中Time2是长日期（含时间），而rq不含时间，任何实现填充效果，请各位老师指教，谢谢！！

DataTables("门禁信息").DataRows.Clear()

Dim rq As String = RibbonTabs("人员管理")("日期单位").Items("日期").Value

Dim f As New Filler

f.SourceTable = DataTables("DI_CheckData") '指定数据来源

f.SourceCols = "PNo2" '指定数据来源列

f.DataTable = DataTables("门禁信息") '指定数据接收表

f.Filter = "Time2 = '"& rq &"'"

f.DataCols = "员工编号" '指定数据接收列

f.ExcludeExistValue = True

f.Fill()

[此贴子已经被作者于2015/4/14 13:50:19编辑过]

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/14 13:32:00 [只看该作者]

不同时间无法对比,如果要筛选一天. 参考

f.Filter = "Time2 >= #"& rq &"# and TIme2 < #" & rq.adddays(1) & "#"

[此贴子已经被作者于2015/4/14 13:33:32编辑过]

主题：[求助]关于长日期问题（已解决）