专家坐堂-跨表统计Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128406)

--  作者：宁老师SQE
--  发布时间：2018/12/5 15:41:00
--  跨表统计

此主题相关图片如下：360截图16410119135213.png

此主题相关图片如下：360截图16410119135213.png

If e.DataCol.Name = "数量" Then
    Dim pr As DataRow
    pr = DataTables("统计").Find("产品 = \'" & e.DataRow("产品") & "\'")
    If pr IsNot Nothing Then
        pr("数量")= pr("数量") + e.NewValue - e.OldValue
    End If
End If

那块有问题吗怎么运行完以后出来了-1

--  作者：有点甜
--  发布时间：2018/12/5 15:48:00
--

1、贴出你所写代码；

2、数量列、产品列，改成你对应的列名。

--  作者：宁老师SQE
--  发布时间：2018/12/5 16:01:00
--

If e.DataRow("是否发货") = True Then
If e.DataRow("发货数量") <> Nothing Then
Dim pr As DataRow
pr = DataTables("产品订单管理").Find("订单编号 = \'" & e.DataRow("订单编号") & "\'")
If pr IsNot Nothing Then
pr("交货数量")= pr("交货数量") + e.NewValue - e.OldValue
End If
End If
End If

--  作者：有点甜
--  发布时间：2018/12/5 17:24:00
--
If e.DataRow("是否发货") = True Then
    If e.DataRow("发货数量") <> Nothing Then
        Dim pr As DataRow
        pr = DataTables("产品订单管理").Find("订单编号 = \'" & e.DataRow("订单编号") & "\'")
        If pr IsNot Nothing Then
            pr("交货数量")= e.DataTable.compute("sum(发货数量)", "订单编号 = \'" & e.DataRow("订单编号") & "\'")
        End If
    End If
End If