主题：[求助]符合条件单元格的和？

      For Each dw As String In DataTables("问卷答案").GetValues("单位","年级 = '" & nj & "'")
            Dim dr As DataRow = DataTables(Wj & "卷二得分").AddNew()
            dr("单位") = dw
            dr("年级") = nj
            dr("题号") = "卷二得分"
            Dim ddr As DataRow = DataTables("校名设置").Find("单位 = '" & dw & "'")
            dr("单位代码") = ddr("单位代码")
            Dim jdrs As List(of DataRow) = DataTables("对应科目").Select("科目 = '卷二'")
            For Each jdr As DataRow In jdrs
                Dim rdr As DataRow = DataTables("分值").Find("类别 = '卷二' And 题号 = '" &dr("题号")& "'")
                dr("调查人数") = dr("调查人数") + (dt.DataTable.Compute("Count("& jdr("题号") &")", "" & jdr("题号") & " <> '""' and [单位] = '" & dr("单位") & "'And [年级] = '" & dr("年级") & "'"))/12
                For Each bm As DataTable In DataTables
                    If bm.name <> "校名设置" AndAlso bm.Name <> "分值" AndAlso bm.Name <> "对应科目" AndAlso bm.Name <> "问卷答案"                       
                        dr("卷二平均分") = DataTables(Wj & "卷二得分").Compute("Sum(卷二平均分)","单位 = '" & dr("单位") & "' And 年级 = '" & dr("年级") & "'")
                       
                    End If
                Next
            Next
        Next
如何修改此代码？请指教。谢谢！

要求：卷二得分=卷二平均分的和(单位=单位，年级=年级) 

但统计结果不对。

此主题相关图片如下：统计结果1.png

第一中学应为10，福禄中学应为9.69

dr("卷二平均分") = DataTables(Wj & "卷二得分").Compute("Sum(卷二平均分)","单位 = '" & dr("单位") & "' And 年级 = '" & dr("年级") & "' and 题号 <> '卷二得分'")

搞定。谢谢！