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

messgebox.show( "累计人数_" & k / s2)

看看你合成的表达式到底是什么。

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

结果是：

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

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

因为合成的表达式是： 累计人数_0.11111111111，所以出错。

因为s2等于0.1111111111，所以很成的表达式是：累计人数_0.11111111111。

因为什么，所以s2等于0.1111111111，这需要你自行分析处理。

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