主题：选择按姓名汇总考核分数，为什么不汇总呢？

 看了下代码，好像没有错。也不会出现不汇总的情况。

 汇总条件应该有些问题。你msgbox看看，加入下面红色代码，截图看看，注意空格。如果条件正常，只能是你的数据表多或者少一个空格的缘故了。

  If r.IsGroup '如果是分组行
        Dim f As String = val & " = '" & r(val) & "'"
msgbox(f)
        Dim v As String = " 违章件数:" & t.Compute("Count(代号)",f)
        v = v & " 考核分数:" & t.Compute("Sum(考核分数)",f)
        'v = v & " 订购金额:" & t.Compute("Sum(金额)",f)
        r("违章条例") = "统计项目:" & val & v
    End If