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

谢谢狐爸老师的指教。

调试代码的结果是，循环MessageBox.Show(9)的过程中出错，同时发现，在SQL Server2005的环境下，运行三个月的数据，虽然代码没有出错，但是环比的数据为 0 或 1 ，估计问题就在这一段代码里。

另外，代码中： r("环比_" & n1)=(r(dc.name)-r("人均加工费_" & n1-1))/r("人均加工费_" & n1-1) 这一句的意思不是很明白，请各位老师指教，谢谢！

For Each r As Row In T.Rows
    For Each dc As DataCol In t.DataTable.DataCols
        If dc.name.IndexOf("人均加工费_")> -1 Then
            r(dc.name) =r(dc.name.Replace("人均",""))/r(dc.name.Replace("人均加工费","投工"))
            'MessageBox.Show(2)
           
            If dc.name <> "人均加工费_1" Then
                'MessageBox.Show(3)
               
                Dim n1 As Integer = Val(dc.name.split("_")(1))
                'MessageBox.Show(4)
               
                r("环比_" & n1)=(r(dc.name)-r("人均加工费_" & n1-1))/r("人均加工费_" & n1-1)
                'MessageBox.Show(5)
               
            End If
            'MessageBox.Show(6)
           
        End If
        'MessageBox.Show(7)
       
        r("年人均加工费") = r("合计_加工费") /r("合计_年均人数")
        'MessageBox.Show(8)
       
    Next
    MessageBox.Show(9)
   
Next
MessageBox.Show(10)

将列类型改为长整数（Long），动态增加的列也改为Long，不要用Integer.

狐爸老师，我把此段代码中的(Integer)全部改成了(Long)，也不起作用，与上面的情况一样。

屏蔽这两行代码：

r("环比_" & n1)=(r(dc.name)-r("人均加工费_" & n1-1))/r("人均加工费_" & n1-1)

r("年人均加工费") = r("合计_加工费") /r("合计_年均人数")

存在[正无穷大],加个判断不就行了吗!

If 被除数 <>0 then

    除数/被除数

End if

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

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