Foxtable(狐表)用户栏目专家坐堂 → 报表汇总行求平均数的问题


  共有1822人关注过本帖树形打印复制链接

主题:报表汇总行求平均数的问题

帅哥哟,离线,有人找我吗?
hopestarxia
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
报表汇总行求平均数的问题  发帖心情 Post By: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() '生成汇总模式

 回到顶部
帅哥哟,离线,有人找我吗?
hopestarxia
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
  发帖心情 Post By: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


 回到顶部