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

先在这里谢谢lihe60老师。

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

你自己检查一下部门是否齐全。

For Each r As Row In Tables("综合考核").Rows
    r("人次")=Nothing
Next

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+dr1("人次")
        End If
    Next
Next