以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]分组统计汇总模式下显示次均费用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85162)

--  作者:黄训良
--  发布时间:2016/5/19 8:24:00
--  [求助]分组统计汇总模式下显示次均费用

请教:分组统计汇总模式下(如图)圈着的地方显示次均费用。

 实现红色圈着的地方显示次均费用,现在显示的是次均费用的合计。


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

 

例子:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:医保统计_201605190822.zip

[此贴子已经被作者于2016/5/19 9:13:26编辑过]

--  作者:Hyphen
--  发布时间:2016/5/19 9:05:00
--  
具体什么问题?
--  作者:大红袍
--  发布时间:2016/5/19 9:10:00
--  

动态修改统计数据即可
 
http://www.foxtable.com/help/topics/1911.htm


 

[此贴子已经被作者于2016/5/19 9:10:16编辑过]

--  作者:黄训良
--  发布时间:2016/5/19 9:11:00
--  
实现红色圈着的地方显示次均费用,现在显示的是次均费用的合计。
--  作者:大红袍
--  发布时间:2016/5/19 12:20:00
--  
以下是引用黄训良在2016/5/19 9:11:00的发言:
实现红色圈着的地方显示次均费用,现在显示的是次均费用的合计。

 

生成以后,再按照你的逻辑修改那个列的值就行啊,看3楼。

 

或者你说明如何运算。


--  作者:黄训良
--  发布时间:2016/5/19 14:59:00
--  

按3楼方法解决,谢谢!

下面2个参数True的作用是什么?

Dim r As Row
For
i As Integer = 0 To Tables("订单").Rows.Count(True) - 1
    r = Tables("订单").Rows(i,True
)
    If
r.IsGroup
        r
("金额") = r("金额") / 10000 &
"万元"
   
End
If
Next

[此贴子已经被作者于2016/5/19 15:04:09编辑过]

--  作者:大红袍
--  发布时间:2016/5/19 15:17:00
--  

加 true,就可以获取汇总模式下的所有行

 

http://www.foxtable.com/help/topics/1594.htm

 


--  作者:黄训良
--  发布时间:2016/5/19 16:37:00
--  
谢谢