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

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个月，还请指教，谢谢！！

 

 

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

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

 

 

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

 

 

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

 

 

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

谢谢狐爸老师的指教，问题得到圆满解决，再次感谢！！同时也谢谢xongyijd老师的热心帮助！！