一个通用交叉表存储过程(改前人版)
CREATE proc p_dtjcb
/*
动态生成交叉表修改于20090819年
*/
@TableName sysname, --表名
@Yzname sysname,  --交叉表最左面的列(分组列)
@Xzname sysname,  --交叉表最上面的列(变成横项的数据列)
@qsum sysname, --交叉表的数数据字段(求和列)
@ynxsum bit,--为1时在交叉表横向最右边加横向合计
@ynysum bit, --为1时在交叉表纵向最下边加纵向合计
@t_bxd sysname
as
-- 判断数据表是否存在
if exists (select * from sysobjects where id = object_id(N'[dbo].['+@t_bxd+']') and OBJECTPROPERTY(id, N'IsUserTable') = 1) 
Execute('Drop   table   '+@t_bxd)
declare @s nvarchar(4000),@sql varchar(8000)
--生成交叉表处理语句
set @s='
set @s=''''
select @s=@s+'',[''+''No''+cast(['+@Xzname+'] as varchar)+'']=sum(case ['+@Xzname
 +'] when ''''''+cast(['+@Xzname+'] as varchar)+'''''' then ['+@qsum+'] else 0 end)''
from ['+@TableName+']
group by ['+@Xzname+']'
exec sp_executesql @s
 ,N'@s varchar(8000) out'
 ,@sql out
--是否生成合计字段的处理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @ynxsum 
  when 1 then ',[合计]=sum(['+@qsum+'])'
  else '' end
 ,@sum2=case @ynysum 
  when 1 then '['+@Yzname+']=case grouping(['
   +@Yzname+']) when 1 then ''合计'' else cast(['
   +@Yzname+'] as varchar) end'
  else '['+@Yzname+']' end
 ,@sum3=case @ynysum
  when 1 then ' with rollup'
  else '' end

--生成交叉表
exec('select '+@sum2+@sql+@sum1+'
into '+@t_bxd+' from ['+@TableName+']
group by ['+@Yzname+']'+@sum3)
Execute('select * from    '+@t_bxd)
GO

------解决方案--------------------
学习
------解决方案--------------------
...
------解决方案--------------------
学习
------解决方案--------------------
什么问题,放出来学习的吗,帮顶.
------解决方案--------------------
学习.
------解决方案--------------------
XUEXI
------解决方案--------------------
band