Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:跨表引用

1楼
g1j2h3 发表于:2024/4/25 13:03:00
销售接单表中的发货数量引用的是发货明细表中的发货数量,如果把发货明细删除一行,那么销售接单对应的发货数量应该恢复原有的数据,如何写代码
现在发货明细表的代码是:
Select Case e.DataCol.Name
Case "发货数量"
DataTables("销售接单").DataCols("产品名称").RaiseDataColChanged("产品名称 = '" & e.DataRow("产品名称") & "'and 接单单号 = '" & e.DataRow("接单单号") & "'")
End Select
销售接单表中的代码:
Select Case e.DataCol.Name
    Case "接单单号", "产品名称", "规格型号"
        If e.DataRow.IsNull("接单单号") Then
            e.DataRow("已发货数量") = Nothing
        Else
            Dim sl As Integer = DataTables("发货明细").Compute("Sum(发货数量)", "接单单号= '" & e.DataRow("接单单号") & "' And 产品名称='" & e.DataRow("产品名称") & "' and 规格型号='" & e.DataRow("规格型号") & "'")
            e.DataRow("已发货数量") = sl 
        End If
End Select
[此贴子已经被作者于2024/4/25 13:05:29编辑过]
2楼
有点蓝 发表于:2024/4/25 13:39:00
发货明细DataRowDeleting事件

e.DataRow("发货数量") = nothing

DataTables("销售接单").DataCols("产品名称").RaiseDataColChanged("产品名称 = '" & e.DataRow("产品名称") & "'and 接单单号 = '" & e.DataRow("接单单号") & "'")

[此贴子已经被作者于2024/4/25 13:39:48编辑过]
3楼
g1j2h3 发表于:2024/4/25 15:54:00
实际上我是想在跨表引用时,发货明细表增加的行的数据在保存后再引用,不是在录入后就引用,代码如何更改

[此贴子已经被作者于2024/4/25 15:57:10编辑过]
4楼
有点蓝 发表于:2024/4/25 16:33:00
有什么区别呢?保存的时候再处理,效率会很低的
共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .04102 s, 2 queries.