专家坐堂-[求助]有几句代码不是太明白求老师解释Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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)