- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 百分比求和 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177669)
-- 发布时间：2022/5/30 14:41:00
-- 百分比求和
请问老师：完成率实际为189%，怎么解决这个问题？
-- 发布时间：2022/5/30 14:45:00
--
没看懂
-- 发布时间：2022/5/30 14:57:00
--
下达人数210人，申报人数395人，完成比率189%。种行申报人数/下达人＝完成率合计显示为713%，实际应该是189%。
-- 发布时间：2022/5/30 14:59:00
--
下达人数210人，申报人数395人，完成比率189%。行申报人数/下达人＝完成率合计显示为713%，实际应该是189%。 |
-- 发布时间：2022/5/30 15:00:00
--
那就不要直接汇总完成率啊，用两个数据直接计算啊，代码发出来看看
-- 发布时间：2022/5/30 15:13:00
--
才在学习使用本软件，很多都不懂。
1.我是先对每行（申报人数/下达人数）进行计算；
2.再用“数据统计合并汇总合计模式”自动汇总的。所以不对，没有写什么代码。
-- 发布时间：2022/5/30 15:19:00
--
那就代码，试试
Dim t As Table = Tables("表A")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
g = New Subtotalgroup
g.GroupOn = "*"
g.TotalOn = "下达人数,申报人数"
g.DateGroup = DateGroupEnum.Day
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.GroupOn = "*"
g.TotalOn = "下达人数,申报人数"
t.SubtotalGroups.Add(g)
t.Subtotal()
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("完成率") = r("申报人数") / r("下达人数")
End If
Next
-- 发布时间：2022/5/30 15:23:00
--
参考：http://www.foxtable.com/webhelp/topics/2636.htm
-- 发布时间：2022/5/30 15:53:00
--
我试试，谢谢你的指导。
-- 发布时间：2022/7/29 14:26:00
--
使用以下代码，1.完成率“正无穷大”怎么处理？2.总计为什么是2行数据。
Dim t As Table = Tables("完成率2")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
g = New Subtotalgroup
g.GroupOn = "*"
g.TotalOn = "下达人数,申报人数"
g.DateGroup = DateGroupEnum.Day
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.GroupOn = "*"
g.TotalOn = "下达人数,申报人数"
t.SubtotalGroups.Add(g)
t.Subtotal()
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("完成率") = r("申报人数") / r("下达人数")
End If
Next
[此贴子已经被作者于2022/7/29 14:52:05编辑过]