以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于交叉统计之份额  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139922)

--  作者:lgj716330
--  发布时间:2019/8/25 13:21:00
--  [求助]关于交叉统计之份额
交叉统计生成水平份额后,如何生成小计或总计行的份额呢


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


--  作者:y2287958
--  发布时间:2019/8/25 13:31:00
--  

统计后自行修改


--  作者:有点蓝
--  发布时间:2019/8/25 21:20:00
--  
参考:http://www.foxtable.com/webhelp/topics/1964.htm
--  作者:lgj716330
--  发布时间:2019/8/26 14:28:00
--  
好吧,主要是列数不固定的,搞起来有点麻烦
--  作者:lgj716330
--  发布时间:2019/8/26 14:32:00
--  
    Dim f As String = "产品 = \'" & r("产品") & "\'"
        
Dim v As String = " 订单数:" & t.Compute("Count(日期)",f)
        v = v & " 订购数量:" & t.Compute("Sum(数量)",f)
        v = v & " 订购金额:" & t.Compute("Sum(金额)",f)
        r("产品") = "产品:" & r("产品") & v

这里统计出来的结果可以弄成两行吗,一行有时候太长看不全

--  作者:有点蓝
--  发布时间:2019/8/26 15:02:00
--  
加上回车,然后把行拉高

v = v & vbcrlf & " 订购数量:" & t.Compute("Sum(数量)",f)