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

一段代码，目的是在交叉统计表增加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

 

谢谢狐爸老师的回复，但是代码加不进去。

 

 

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

结果是：

 

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

先除后赋值，肯定是错，如何先赋值后除，请狐爸老师指教，谢谢！！

又是双引号单引号问题，参照[合计_累计人数]/"& s2，将表达式调整为""累计人数_" & k  /"& s2，还是出错！！

 

 

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

谢谢czy老师的回复，应该如何改，请指教，谢谢！！

谢谢mr725老师的回复，代码完全符合要求，又学了一招，再次衷心感谢mr725老师的热情帮助，谢谢！！

回czy老师，s2是整数，前面还有个k，第一个循环时，k=1，1/9=0.11111111，主要问题是将应该赋值给列标题的k，拿了先除以s2，然后再赋值给列标题，所以出错，谢谢czy老师的热情帮助！！