主题：[求助]代码出错，求助修改（已解决）

一段代码，跨表汇总人次，代码出错，如何修改，请各位老师指教，谢谢！！

For Each dr1 As DataRow In DataTables("综合考核").DataRows
    Dim pr As DataRow
    For j As Integer = 1 To 12
        If dr1.IsNull("部门")  Then
            dr1("人次") = Nothing
        Else
            Dim pr1 As Double = DataTables("个人数据").Compute("Sum("考勤_"& j)","[部门_"& j &"]" = '"& dr1("部门") &"'")
            dr1("人次") = pr1
        End If
    Next
Next

谢谢y2287958老师的回复，好像还是不行，出错提示如下：

谢谢lin_hailun老师的回复，好像还是不行，出错提示如下：

谢谢lin_hailun老师的回复，仍然不行，出错提示如下：

谢谢lin_hailun老师的回复，不好意思，仍然不行，出错提示如下：

先在这里谢谢lihe60老师。

谢谢lihe60老师的指教，代码没有出错，但是好像结果不正确，人次合计的结果应该是4143.5（等于个人数据表考勤_合计列的总和），还请老师看看问题在哪里，谢谢！！