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

领料单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("数量")

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

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