以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  汇总后的百分比计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114079)

--  作者:aza520
--  发布时间:2018/1/28 11:21:00
--  汇总后的百分比计算
以下是汇总代码,如何实现在汇总后的小计和总计实现百分比的重新计算,见图,如“交地率”列,分别在小计和总计中计算出“已交付用地数量/设计征地数量"的百分比?请老师指导


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


Dim t As Table = Tables("S征 情况表")
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)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "路线总长,设计征地数量,已交付用地数量,征 费用预算,征 预付款,业主结算补助金额,政府配套资金总额,已到位配套资金"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()

--  作者:y2287958
--  发布时间:2018/1/28 13:35:00
--  
http://www.foxtable.com/webhelp/scr/2636.htm
--  作者:有点甜
--  发布时间:2018/1/28 13:56:00
--  

http://www.foxtable.com/webhelp/scr/1911.htm

 

http://www.foxtable.com/webhelp/scr/2636.htm