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

一段代码，目的是在交叉统计表增加5列与分组对应的列，结果出错，应该如何修改代码，请各位老师帮助指教，谢谢！！

For Each r As Row In t.Rows
    For k As Byte = 1 To i
        t.DataTable.DataCols.Add("平均人数_" & k , Gettype(Double),"累计人数_" & k / s2)
    Next
    For j As Byte = 1 To i
        If r("累计人数_" & j) <>  0 Then
            r("人均报酬_" & j) = r("报酬合计_" & j)/r("平均人数_" & j)
        End If
    Next
Next

注：s2代表月份

出错提示：

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