标题：表更新后自动向另一表更新
车间有个投料区，从仓库领取物料后投入生产线，并计算手上剩余数量。现在有表“领料单”和“投料单”，如何在该两表更新后，自动更新到“投料区”表？
附件是样本。当然，这里的“投料区”的数是我手工输入的，但我希望这是自动产生的。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
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()
领料单BeforeSaveDataRow中放入：
Dim dr As DataRow = DataTables("投料区").AddNew()
dr("日期") = e.DataRow("日期")
dr("文件号") = e.DataRow("领料单")
dr("物料") = e.DataRow("物料")
dr("领料数量") = e.DataRow("数量")
-----------------------------------------------------
投料单BeforeSaveDataRow中放入：
Dim dr As DataRow = DataTables("投料区").AddNew()
dr("日期") = e.DataRow("日期")
dr("文件号") = e.DataRow("投料单")
dr("物料") = e.DataRow("物料")
dr("投料数量") = e.DataRow("数量")
----------------------------------------------------------
自动计算数量参考流水帐一节内容，我还没有仔细研究使用方法。
这段代码可以符合我的要求，但这段代码应放在哪里？就是当源表有变动时就执行这段代码。
放在MainTableChanged事件中：
If MainTable.Name= “投料区" Then
‘你的代码
End If