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

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

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