主题：复制表

各位大侠，能否帮我修改一个代码，

我不希望复制全部的行，我自复制的行是”点检周期“列＝7的行

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

谢谢