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

Dim sql As String = "Select 报表年月,日期,单位,Sum(加工费) As 加工费,Sum(投工) As 投工，Sum(加工费)/Sum(投工) As 人均加工费 FROM {日报源表} WHERE Year(日期) = '" & nf & "' Group By 报表年月,日期,单位 ORDER BY 单位,日期,报表年月"

剩下的你应该可以自己处理了。

看看这些内容能否帮助你：
 
http://help.foxtable.com/topics/1594.htm

http://help.foxtable.com/topics/1911.htm

http://help.foxtable.com/topics/1964.htm

 
单单某列环比是不可以的，你可以分成两个或多个统计，然后将多个统计结果组合在一起：

http://help.foxtable.com/topics/2305.htm

问题出现在以下加粗的部分：

r.DataTable.DataCols.Add( k4 & j , Gettype(Double),"iif((j-1)=0,null,"& k3 & j &"/"& k3 & (j-1) &")") 

j是一个变量，合成的表达式中不能直接出现字符j的。

你应该：

if j-1 = 0 Then

    r.DataTable.DataCols.Add( k4 & j , Gettype(Double))

else

    r.DataTable.DataCols.Add( k4 & j , Gettype(Double), k3 & j &"/"& k3 & (j-1) &")")

end if

你可以根据标题取得列名，逐列判断表中的列，如果标题符合，就取此列。
新增列可以用move移动位置：

CurrentTable.Cols("日期").Move(0)

动态设置标题：

http://help.foxtable.com/topics/1275.htm

说实话，我没有明白你的意思。

Y版出马，楼主有福了。

可能某个值太大，超出了integer的范围，请先找出出错代码是哪一行，然后再考虑解决方法。