- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 报表汇总行求平均数的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109681)
-- 发布时间：2017/11/17 0:13:00
-- 报表汇总行求平均数的问题
做个一个销售毛利统计表。（如图）
此主题相关图片如下：合记样式.jpg
其中有一例为毛利率，毛利率等于销售毛利/销售金额，
底下一行为汇总数据，想在汇总数据处实现毛利率也体现出来，汇总数据处的毛利率=合计销售毛利/合计销售金额
i当前代码如下：请问要如何修改才能在汇总表实现需求。
Dim t As Table = Tables("销售毛利明细表_Table1")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "销售单号"
g.TotalOn = "重量,销售金额,成本单价,成本金额,销售毛利"
g.Caption = " 销售单号 {0} 小计"
t.SubtotalGroups.Add(g)
t.Subtotal()
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" \'注意总计分组用符号*表示.
g.TotalOn = "重量,销售金额,成本单价,成本金额,销售毛利"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal() \'生成汇总模式
-- 发布时间：2017/11/17 0:24:00
--
谢谢，已经实现。
Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
r = t.Rows(i,True)
If r.IsGroup Then
r("毛利率") = Format(r("销售毛利") / r("销售金额") * 100 ,"0.00")
End If
Next