以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于长日期问题（已解决）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66814)
--  作者：yyzlxc
--  发布时间：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
--  发布时间：2015/4/14 13:32:00
--  
不同时间无法对比,如果要筛选一天. 参考

f.Filter =  "Time2 >= #"& rq &"# and TIme2 < #" & rq.adddays(1) & "#" 
[此贴子已经被作者于2015/4/14 13:33:32编辑过]