主题：表更新后自动向另一表更新

DataTables("投料区").DataRows.Clear
Dim f As New Filler
f.SourceTable = DataTables("领料单")
f.SourceCols = "日期,领料单,物料,数量"
f.DataTable = DataTables("投料区")
f.DataCols = "日期,文件号,物料,领料数量"
f.Fill()

Dim f1 As New Filler
f1.SourceTable = DataTables("投料单")
f1.SourceCols = "日期,投料单,物料,数量"
f1.DataTable = DataTables("投料区")
f1.DataCols = "日期,文件号,物料,投料数量"
f1.Fill()