For Each dr1 As DataRow In DataTables("单位系数").DataRows
    If dr1.IsNull("部门")  Then
        dr1("月系数_1") = Nothing
    Else
        Dim pr As Double = DataTables("个人数据").Compute("Sum(系数_1)","[部门_1] =\'" & dr1("部门") & "\'")
        dr1("月系数_1") = pr
    End If
Next

上面的代码在命令窗口通过，要修改成For...Next循环，将代码中的 1 替换为 i ，代码应该如何修改，请各位老师指教，谢谢！！

For Each dr1 As DataRow In DataTables("单位系数").DataRows
    For i As Integer = 1 To 12
        If dr1.IsNull("部门")  Then
            dr1("月系数_" & i) = Nothing
        Else
            Dim pr As Double = DataTables("个人数据").Compute("Sum("系数_" & i)","["部门_" & i] =\'" & dr1("部门") & "\'")
            dr1("月系数_" & i) = pr
        End If
    Next
Next

谢谢xongyijd老师的回复，但是代码在命令窗口未能通过，另外循环就是12个月，还请指教，谢谢！！

这样看看：

For Each dr1 As DataRow In DataTables("单位系数").DataRows
    For Each dr2 As DataCol In DataTables("单位系数").DataCols
        For Each i As DataRow In dr1
            If i.IsNull("部门")  Then
                i(dr2.Name) = Nothing
            Else
                Dim pr As Double = DataTables("个人数据").Compute("Sum(系数_1)","["部门] = \'" & dr1("部门") & "\'")
                i(dr2.Name) = pr
            End If
        Next
    Next
Next

谢谢xongyijd老师的回复，好像还是不行。

此主题相关图片如下：f.png

另外，在命令窗口运行上面加黄色标记的这段代码，出现的错误提示如下，估计可能就是双引号单引号的问题，还请指教，谢谢！！