主题：复制表

Dim f As New Filler
f.SourceTable = DataTables("点检管理表") '指定数据来源
f.SourceCols = "序号,设备名称,设备编号,点检位置,位置代码,点检内容,内容代码,点检周期,基准条码" '指定数据来源列
f.DataTable = DataTables("点检临时表") '指定数据接收表
f.DataCols = "序号,设备名称,设备编号,点检位置,位置代码,点检内容,内容代码,点检周期,基准条码" '指定数据接收列

f.Filter = "点到周期= 7"
f.Fill() '填充数据