以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何在切换汇总模式后能统计总的完成率？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10834)
--  作者：pc005637
--  发布时间：2011/6/26 11:57:00
--  [求助]如何在切换汇总模式后能统计总的完成率？

[求助]如何在切换汇总模式后能统计总的完成率？

需要怎么设置？还是用其它的方法。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:完成率.table
--  作者：e-png
--  发布时间：2011/6/26 13:18:00
--  

做个按钮吧：（先在命令窗口测试）

Tables("表A").Rows(Tables("表A").count(True) -1, True)("完成率") = Tables("表A").Compute("Sum(完成率)") /Tables("表A").count-1
--  作者：红叶
--  发布时间：2011/6/26 14:05:00
--  
 

篡改汇总模式的结果

有了上一节“关于汇总模式下的行”的知识，我们就可以轻松地“篡改”汇总模式的统计结果。

例如希望汇总模式的统计结果中，金额以“万元”为单位显示：

\'首先要生成汇总模式
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
--  作者：狐狸爸爸
--  发布时间：2011/6/26 14:10:00
--  

自己做个按钮，代码为：

 

Dim t As Table = Tables("表A")

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 = "总计"

t.SubtotalGroups.Add(g)

t.Subtotal()

Dim r As Row = Tables("表A").Rows(Tables("表A").count(True) -1, True)

r ("完成率") = r("完成数")/ r("任务数")

 

原理参考：

http://help.foxtable.com/topics/1911.htm

http://help.foxtable.com/topics/1964.htm

 

[此贴子已经被作者于2011-6-26 14:10:50编辑过]
--  作者：pc005637
--  发布时间：2011/6/26 19:15:00
--  能否设计成百分率是小数点后2位的那种？
能否设计成百分率是小数点后2位的那种？ 比如：23.56%那种。
--  作者：狐狸爸爸
--  发布时间：2011/6/27 7:18:00
--  

http://help.foxtable.com/topics/1659.htm