Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
pc005637 发表于:2011/6/26 11:57:00

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

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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:完成率.table

2楼
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

3楼
红叶 发表于: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

4楼
狐狸爸爸 发表于: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编辑过]
5楼
pc005637 发表于:2011/6/26 19:15:00
能否设计成百分率是小数点后2位的那种? 比如:23.56%那种。
6楼
狐狸爸爸 发表于:2011/6/27 7:18:00

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

 

共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 3 queries.