以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一个统计问题请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73468)

--  作者:douglas738888
--  发布时间:2015/8/19 21:58:00
--  一个统计问题请教

老师帮忙看看跨表统计的问题

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试22.rar


--  作者:大红袍
--  发布时间:2015/8/19 22:07:00
--  
If e.DataCol.Name = "客户编号" Then
   
    Dim sum1 As Double = DataTables("订单").compute("sum(金额)","客户编号 = \'" & e.DataRow("客户编号") & "\'")
    Dim sum2 As Double = DataTables("订单增量").compute("sum(金额2)","客户编号 = \'" & e.DataRow("客户编号") & "\'")
    Dim sum3 As Double = DataTables("订单").compute("sum(未付金额)","客户编号 = \'" & e.DataRow("客户编号") & "\'")
    Dim sum4 As Double = DataTables("订单增量").compute("sum(未付金额)","客户编号 = \'" & e.DataRow("客户编号") & "\'")
   
    e.DataRow("订单金额合计") = sum1 + sum2
    e.DataRow("未付款合计") = sum3 + sum4
   
End If

--  作者:y2287958
--  发布时间:2015/8/19 22:12:00
--  
也可以用表间关联
--  作者:douglas738888
--  发布时间:2015/8/19 22:13:00
--  
哦,自己写代码的思路有问题,明白了,谢谢老师这么晚还为我们服务,真的辛苦了!!!