以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表汇总代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93889)

--  作者:feixianzhi
--  发布时间:2016/12/9 15:31:00
--  跨表汇总代码问题

图片点击可在新窗口打开查看此主题相关图片如下:明细表.png
图片点击可在新窗口打开查看


--  作者:feixianzhi
--  发布时间:2016/12/9 15:37:00
--  
汇总表实在传不上去了。汇总表同明细表结构一样,只是在单位列第1行里有“第三方”。我想统计,明细表里单位为第三方的收款金额和返款金额。请各位老师帮忙,代码怎么写。
--  作者:有点蓝
--  发布时间:2016/12/9 16:06:00
--  
参考:http://www.foxtable.com/webhelp/scr/1454.htm
--  作者:feixianzhi
--  发布时间:2016/12/9 16:50:00
--  
If e.DataCol.Name = "摘要" Then 
    
    e.DataRow("底价款收款") = DataTables("底价款收款明细表").Compute("Sum(第三方)","[收款单位] = \'" & e.NewValue & "\'")
    e.DataRow("保证金收款") = DataTables("保证金收款明细表").Compute("Sum(第三方)","[收款单位] = \'" & e.NewValue & "\'")
    e.DataRow("底价款返款") = DataTables("底价款返款明细表").Compute("Sum(第三方)","[返款单位] = \'" & e.NewValue & "\'")
    e.DataRow("保证金返款") = DataTables("保证金返款明细表").Compute("Sum(第三方)","[返款单位] = \'" & e.NewValue & "\'")
    
End If

麻烦有点蓝老师帮我看一下,这段代码有什么问题。我重置摘要列,但没有任何反映。

--  作者:有点蓝
--  发布时间:2016/12/9 17:28:00
--  
"摘要"=[收款单位]吗,重置"摘要" 列

--  作者:feixianzhi
--  发布时间:2016/12/12 11:18:00
--  
谢谢有点蓝老师,代码没问题,我用代码设置了自动重置列,但没有重置摘要列,所以没什么反应。
--  作者:有点蓝
--  发布时间:2016/12/12 11:20:00
--  
只有重置摘要列才有用