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

车间有个投料区，从仓库领取物料后投入生产线，并计算手上剩余数量。现在有表“领料单”和“投料单”，如何在该两表更新后，自动更新到“投料区”表？

附件是样本。当然，这里的“投料区”的数是我手工输入的，但我希望这是自动产生的。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目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("数量")

----------------------------------------------------------

自动计算数量参考流水帐一节内容，我还没有仔细研究使用方法。

http://www.foxtable.com/help/topics/0680.htm

http://www.foxtable.com/help/topics/1533.htm

这段代码可以符合我的要求，但这段代码应放在哪里？就是当源表有变动时就执行这段代码。

放在MainTableChanged事件中：

If MainTable.Name= “投料区" Then

    ‘你的代码

End If