DataTables("AttCard").LoadFilter = " CrdDate > '" & Date.Today.AddMonths(-1) & "'" '允许加载的数据时间为1个月
DataTables("AttCard").Load
Dim f As New Filler
f.SourceTable = DataTables("AttCard") '指定数据来源
f.SourceCols = "rid,sysflg,crddate,class,lockif,crdr01,crdr02,crdr03,crdr04,crdr05,crdr06,crdr07,crdr08,crdr09,crdr10,attlist,empsts,pcard,proflg,prodate" '指定数据来源列
f.DataTable = DataTables("fstbfc_AttRecord") '指定数据接收表
f.DataCols = "rid,sysflg,crddate,class,lockif,crdr01,crdr02,crdr03,crdr04,crdr05,crdr06,crdr07,crdr08,crdr09,crdr10,attlist,empsts,pcard,proflg,prodate" '指定数据接收列
f.Fill() '填充数据
袍哥 请教下 以上代码 f.Fill() 填充的数据是
DataTables("AttCard").LoadFilter = " CrdDate > '" & Date.Today.AddMonths(-1) & "'"
局部
还是
DataTables("AttCard").loadfilter =""
全部
加载的过程中有时会卡死!
[此贴子已经被作者于2016/3/29 16:56:26编辑过]