主题：以下代码不管在窗口中填写多少行，要么只保存了一行，要么保存不上

Dim f As New Filler
f.SourceTable = DataTables("清洗包装记录临时表") '指定数据来源
f.SourceCols = "线别,投产日期,毛坯编码,成品描述,毛坯产地,生产批次,批次序号,成品编码,成品流水号,刻号日期,备注" '指定数据来源列
f.DataTable = DataTables("清洗包装记录") '指定数据接收表
f.DataCols = "线别,投产日期,毛坯编码,成品描述,毛坯产地,生产批次,批次序号,成品编码,成品流水号,刻号日期,备注" '指定数据接收列
f.Fill()

DataTables("清洗包装记录临时表").DataRows.Clear
DataTables("清洗包装记录临时表").addnew