如上图：三张表以[指令单号]关联，“订单”表中每个[指令单号]只有一条，不重复；“整理入库”表中每个[指令单号]有多条相同，为每天入库的数据录入；

三张表中1#左边各列为字符、日期列，1#、1.5#……为数据列

<!--[if !supportLists]-->1、  <!--[endif]-->要求在“订单”中新增一个订单后，将1#左边各列值填充到“递减表“中所对应的列中，同样在“递减表”中每个[指令单号]为唯一，不重复，“整理入库”表中的[指令数

量]为“订单”中的[订单合计]数量。

<!--[if !supportLists]-->2、  <!--[endif]-->我要将“订单”表中某[指令单号]的数据如1#，1.5#……，减去“整理入库”表中相同[指令单号]对应1#，1.5#……多条数据对应的和，然后后将结果对应到“递减表“中对

应如1#，1.5#……的数据中。只要在“整理入库”表中每天输入各[指令单号]的数据后，“递减表”中对应[指令单号]的各相关数据列自动更新！

<!--[if !supportLists]-->3、  <!--[endif]--> “递减表”中某[指令单号] 的数据列“1#，1.5#……”等数据值等于“0”时“整理入库”表中各对应列的数据无法再输入数据！其它不为“0“的列可以继续输入数据。

（如需要修改锁定列的数据，如何处理?）

<!--[if !supportLists]-->4、  <!--[endif]-->“递减表”中某[指令单号] 各数据列“1#，1.5#……”等数据值都等于“0”时，此时“递减表”中[完成列]中 =“OK”，并将此[指令单号]所在行所有数据，从“递减表”

<!--[if !supportLists]-->5、  <!--[endif]-->中复制到“OK订单“表中，并从“递减表”中删除此行。

请问以上问题如何写相关事件代码？请各位大神指教！谢谢！（结果如下表）

 
此主题相关图片如下：跨表计算问题.png

编写入库表DataColChanged事件，输入值以后，compute本表的数据，查找订单表的数据，相减，如果小于0，就提示不能输入，否者，就把结果写入到递减表去。

 代码不会写，就上传实例。

接上面问题上传实例！请各位大师指点！谢谢！

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

点击浏览该文件:订单生产欠数.rar

如上实例：三张表以[指令单号]关联，“订单”表中每个[指令单号]只有一条，不重复；“整理入库”表中每个[指令单号]有多条相同，为每天入库的数据录入；

三张表中1#左边各列为字符、日期列，1#、1.5#……为数据列

1、  要求在“订单”中新增一个订单后，将1#左边各列值填充到“递减表“中所对应的列中，同样在“递减表”中每个[指令单号]为唯一，不重复，“整理入库”表中的[指令数量]为“订单”中的[订单合计]数量。（我已解决）

2、要将“订单”表中某[指令单号]的数据如1#，1.5#……，等列减去“整理入库”表中相同[指令单号]对应1#，1.5#……等对应列数据的和，然后后将结果对应到“递减表“中1#，1.5#……等列的中。只要在“整理入库”表中每天输入各[指令单号]各列的数据后，“递减表”中对应[指令单号]的各列相关数据列自动更新！

3、“递减表”中某[指令单号] 的数据列“1#，1.5#……”等列数据值等于“0”时“整理入库”表中各对应列的数据无法再输入数据！其它不为“0“的列可以继续输入数据。

4、 “ 递减表”中某[指令单号] 各数据列“1#，1.5#……”等数据值都等于“0”时，此时“递减表”中[完成列]中 =“OK”，并将“递减表”表中该[指令单号]的所有数据，从 ” 递减表”表中复制“OK订单“表中，并从“递减表”中删除此行，且将把“订单”表中该对应的[指令单号]行以绿色填充，且加入已完成列设置为“OK”

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

点击浏览该文件:订单生产欠数.rar

datacolchanging事件，写代码

If e.DataCol.Name.StartsWith("SIZE") Then
    Dim sum1 As Double = e.DataTable.Compute("sum(" & e.DataCol.name & ")", "指令单号 = \'" & e.DataRow("指令单号") & "\' and 型体 = \'" & e.DataRow("型体") & "\'")
    Dim sum2 As Double = DataTables("订单").Compute("sum(" & e.DataCol.name & ")", "指令单号 = \'" & e.DataRow("指令单号") & "\' and 型体 = \'" & e.DataRow("型体") & "\'")
    If sum1 + e.NewValue > sum2 Then
        msgbox("超出了")
        e.cancel = True
    Else
       
    End If
End If

只是一个简单的代码，你看懂，扩展开去。

代码的意思是，如果你输入的值大于订单的值，就提出错误。