上一篇转帖过来后，实际运行了一下不好使，QTY必须定义。粗略看了下源码，可能作者图省事，传入的T4参数没有转换成dicimal型，直接杜撰了个QTY变量，自然报错。(或者转帖的就不是原帖，很有可能!)，记得邹建有一个存储过程的，找了一下，果然找到，而且执行成功。在这里记录一下。非常感谢邹建大哥的东东，真帮了大忙了。代码如下
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_CrossTable]
GO
/*--生成交叉表的简单通用存储过程
根据指定的表名,纵横字段,统计字段,自动生成交叉表
并可根据需要生成纵横两个方向的合计
注意,横向字段数目如果大于纵向字段数目,将自动交换纵横字段
如果不要此功能,则去掉交换处理部分
--邹建 204.06--*/
/*--调用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_CrossTable
@TableName sysname, --表名
@RowField sysname, --交叉表最左面的列
@ColumnField sysname, --交叉表最上面的列
@DataField sysname, --交叉表的数数据字段
@IsColumnSum bit,--为1时在交叉表横向最右边加横向合计
@IsRowSum bit --为1时在交叉表纵向最下边加纵向合计
as
declare @s nvarchar(4000),@sql varchar(8000)
--判断横向字段是否大于纵向字段数目,如果是,则交换纵横字段
/*
set @s='declare @a sysname
if(select case when count(distinct ['+@RowField+'])<count(distinct ['+@ColumnField+']) then 1 else 0 end
from ['+@TableName+'])=1
select @a=@RowField,@RowField=@ColumnField,@ColumnField=@a'
exec sp_executesql @s
,N'@RowField sysname out,@ColumnField sysname out'
,@RowField out,@ColumnField out
*/
--生成交叉表处理语句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@ColumnField+'] as varchar)+'']=sum(case ['+@ColumnField
+'] when ''''''+cast(['+@ColumnField+'] as varchar)+'''''' then ['+@DataField+'] else 0 end)''
from ['+@TableName+']
group by ['+@ColumnField+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合计字段的处理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @IsColumnSum
when 1 then ',[合计]=sum(['+@DataField+'])'
else '' end
,@sum2=case @IsRowSum
when 1 then '['+@RowField+']=case grouping(['
+@RowField+']) when 1 then ''合计'' else cast(['
+@RowField+'] as varchar) end'
else '['+@RowField+']' end
,@sum3=case @IsRowSum
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select '+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@RowField+']'+@sum3)
go
再次感谢！