[求助]一个人多个算法的项目该如何统计总分呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]一个人多个算法的项目该如何统计总分呢？

共有5264人关注过本帖树形打印复制链接主题：[求助]一个人多个算法的项目该如何统计总分呢？

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/31 15:37:00 [显示全部帖子]

直接分组汇总，不就可以了？

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/31 15:40:00 [显示全部帖子]

1、另外加一列【得分】，把得到的具体的分数填在那里

2、直接汇总 http://www.foxtable.com/webhelp/scr/00144.htm

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/13 21:57:00 [显示全部帖子]

1、看看

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

2、

Dim dic As New Dictionary(Of String, Double)

For Each dr As DataRow In DataTables("考核得分汇总表").Select("计分分类='综合'")

'提取科室数据，累计科室的分数

Dim key As String = dr("被考核科室")

If dic.ContainsKey(key) = False

dic.Add(key,10-dr("实际得分"))

Else

dic(key) += 10-dr("实际得分")

End If

For Each k As String In dic.Keys

Output.Show(K & ":" & dic(k))

Dim bm As String = "统计表1"

Dim b As New SQLGroupTableBuilder(bm,"考核得分汇总表")

b.Groups.AddDef("被考核科室")

b.Totals.AddDef("实际得分")

b.Filter = "计分分类='单项'"

b.Build

For Each dr As DataRow In DataTables(bm).DataRows

'把数据写入到表格里面

dr("实际得分") += iif(dic(dr("被考核科室")) >= 10,0,10-dic(dr("被考核科室")))

MainTable = Tables(bm)

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/15 15:07:00 [显示全部帖子]

把不重复的科室的值，存放在字典里面

If dic.ContainsKey(key) = False                                                                         如果字典里不存在，就添加
    dic.Add(key,10-dr("实际得分"))
Else                                                                                                                 否则，科室的值累加起来
    dic(key) += 10-dr("实际得分")
End If

下一主题 >> << 上一主题

主题：[求助]一个人多个算法的项目该如何统计总分呢？