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

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

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

y2287958

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

加好友

发短信

等级：狐神帖子：4627 积分：33767 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2019/1/31 17:05:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

淡笑风云

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

加好友

发短信

等级：婴狐帖子：23 积分：244 威望：0 精华：0 注册：2019/1/23 10:56:00

回复：（y2287958）[upload=table,管理项目1.table]vi... 发帖心情

Post By：2019/1/31 20:16:00 [只看该作者]

谢谢老师！

淡笑风云

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

加好友

发短信

等级：婴狐帖子：23 积分：244 威望：0 精华：0 注册：2019/1/23 10:56:00

回复：（y2287958）[upload=table,管理项目1.table]vi... 发帖心情

Post By：2019/2/13 20:12:00 [只看该作者]

老师，我看了下代码有几句不是太明白我标注了一下。我是新手，能帮忙注释一下吗？谢谢。

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)

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

淡笑风云

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

加好友

发短信

等级：婴狐帖子：23 积分：244 威望：0 精华：0 注册：2019/1/23 10:56:00

回复：（有点甜）1、看看 http://www.foxtab... 发帖心情

Post By：2019/2/15 15:00:00 [只看该作者]

老师，我看了几天了还不是太明白。

我按我自己理解的做了一下释义，可最终执行的结果和自己理解的不一样。

麻烦老师再帮我讲解一下，谢谢！

Dim dic As New Dictionary(Of String, Double) '定义变量 dic 为新的字典(键类型为字符串,值类型为双精度值)

For Each dr As DataRow In DataTables("考核得分汇总表").Select("计分分类= '综合'") '显示考核得分汇总表中包含综合的每一行

Dim key As String = dr("被考核科室") '定义变量 key 为字符串为 dr("被考核科室")

If dic.ContainsKey(key) = False '如果字典中”被考核科室 “不包含”综合“ 。

dic.Add(key,10-dr("实际得分")) '字典中添加 ”被考核科室“，10-dr("实际得分")

Else '否则

dic(key) += 10-dr("实际得分") '字典中被考核科室 =被考核科室+10-dr("实际得分")

End If '结束

Next '下一句

For Each k As String In dic.Keys '设定变量k 为字符串位于dic.Keys

Output.Show(K & ":" & dic(k)) '显示变量K，及K值

Next '下一句

有点甜

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | 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