主题：代码更改

保存代码这样写

Dim f As New Filler
f.SourceTable = DataTables("工序记录表_工序跟踪表") '指定数据来源
f.SourceCols = "毛坯编码,使用设备,加工工序,姓名,开始日期,班次,合格品,不合格品,返修,备注,生产批次" '指定数据来源列
f.DataTable = DataTables("工序跟踪表") '指定数据接收表
f.ExcludeExistValue = True
f.DataCols = "毛坯编码,使用设备,加工工序,姓名,开始日期,班次,合格品,不合格品,返修,备注,生产批次" '指定数据接收列
f.Fill()
DataTables("工序记录表_工序跟踪表").DataRows.Clear

For Each dt As DataTable In DataTables
    dt.Save()
Next

DataTables("工序记录表_工序跟踪表").addnew
DataTables("工序跟踪表").DeleteFor("毛坯编码 is null or 加工工序 is null")