以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表更新后自动向另一表更新  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14784)

--  作者:netfox168
--  发布时间:2011/12/1 23:39:00
--  表更新后自动向另一表更新

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

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

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table


--  作者:czy
--  发布时间:2011/12/2 1:22:00
--  

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()


--  作者:liguichuan
--  发布时间:2011/12/2 6:13:00
--  

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

 

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

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

[此贴子已经被作者于2011-12-2 6:13:41编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/12/2 8:16:00
--  

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

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

 


--  作者:netfox168
--  发布时间:2011/12/3 0:07:00
--  

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


--  作者:狐狸爸爸
--  发布时间:2011/12/3 9:12:00
--  

放在MainTableChanged事件中:

 

If MainTable.Name= “投料区" Then

    ‘你的代码

End If