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

谢谢狐爸老师的指教。

调试代码的结果是，循环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)