用 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编辑过]