Foxtable(狐表)用户栏目专家坐堂 → 百分比求和


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

主题:百分比求和

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


加好友 发短信
等级:婴狐 帖子:49 积分:566 威望:0 精华:0 注册:2022/5/16 17:36:00
百分比求和  发帖心情 Post By:2022/5/30 14:41:00 [只看该作者]

图片点击可在新窗口打开查看
请问老师:完成率实际为189%,怎么解决这个问题?

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


加好友 发短信
等级:狐精 帖子:3209 积分:21331 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/5/30 14:45:00 [只看该作者]

没看懂


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


加好友 发短信
等级:婴狐 帖子:49 积分:566 威望:0 精华:0 注册:2022/5/16 17:36:00
  发帖心情 Post By:2022/5/30 14:57:00 [只看该作者]

下达人数210人,申报人数395人,完成比率189%。种行申报人数/下达人=完成率合计显示为713%,实际应该是189%。


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


加好友 发短信
等级:婴狐 帖子:49 积分:566 威望:0 精华:0 注册:2022/5/16 17:36:00
  发帖心情 Post By:2022/5/30 14:59:00 [只看该作者]

下达人数210人,申报人数395人,完成比率189%。行申报人数/下达人=完成率合计显示为713%,实际应该是189%。

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


加好友 发短信
等级:狐精 帖子:3209 积分:21331 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/5/30 15:00:00 [只看该作者]

那就不要直接汇总完成率啊,用两个数据直接计算啊,代码发出来看看

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


加好友 发短信
等级:婴狐 帖子:49 积分:566 威望:0 精华:0 注册:2022/5/16 17:36:00
  发帖心情 Post By:2022/5/30 15:13:00 [只看该作者]

才在学习使用本软件,很多都不懂。
1.我是先对每行(申报人数/下达人数)进行计算;
2.再用“数据统计合并汇总合计模式”自动汇总的。所以不对,没有写什么代码。

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


加好友 发短信
等级:狐精 帖子:3209 积分:21331 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By: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


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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/30 15:23:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:49 积分:566 威望:0 精华:0 注册:2022/5/16 17:36:00
  发帖心情 Post By:2022/5/30 15:53:00 [只看该作者]

我试试,谢谢你的指导。

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


加好友 发短信
等级:婴狐 帖子:49 积分:566 威望:0 精华:0 注册:2022/5/16 17:36:00
  发帖心情 Post By: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编辑过]

 回到顶部
总数 11 1 2 下一页