主题：[求助]能否在交叉表的垂直分组列中增加列（已解决）

考虑了半天，还是将那段代码替换掉，比较好懂，但是又碰到闹心的单双引号搞不定，还是烦请各位老师再次帮忙，不胜感谢！！

For j As Integer = 1 To i
    Dim dr As DataRow
    dr("人均加工费_" & j &) =" iif(dr("投工_" & j &)=0,null,dr("加工费_" & j &) "/" dr("投工_" & j &)"
    If j-1 = 0 Then
        dr("环比_" & j &) = Nothing

    Else
        dr("环比_" & j &) = iif(dr("人均加工费_" (j-1))=0,null,(dr("人均加工费_" & j &) / dr("人均加工费_" (j-1)))-1)
    End If
Next