通用动态交叉表的实现

-- ============================================================================
-- 通用动态交叉表的实现
-------------------------------------------------------------------------------
-- usp_Crosstab
-------------------------------------------------------------------------------

CREATE                  PROCEDURE usp_Crosstab
@table varchar(50),   --表名
@sumRow varchar(8000),  --合计列字段
@groupRow varchar(1000), --分组列字段
@col varchar(50),   --要将列值转换为列的列字段
@colTable varchar(1000), --要将列值转换为列的列字段表
@Sortfield varchar(100), --要将列值转换为列的列字段表排序字段
@SubSortfield varchar(100), --要将列值转换为列的列字段表子排序字段
@content varchar(50),   --列值转换为列后列的内容字段
@showSum varchar(50),  --显示总计列名
@showSubtotal varchar(50), --显示小计列
@where varchar(8000)  --查询条件
AS
DECLARE @declareSql varchar(8000), --变量定义的SQL
  @initSql varchar(8000), --初始变量的SQL
  @SubsectionSQL varchar(8000), --读取以4000分段后数据的SQL
  @CombinationSQL varchar(8000), --分段后各个变量组合的SQL
  @EndFromSQL varchar(8000), --组合的后辍(表名、分组列名)的SQL
  @i int,    --根据4000为分段迭代得到的i
  @ic varchar(50),   --转成字符串后的i
  @mc varchar(50)   --变量的个数

EXEC('select ID=Identity(int,1,1),COL=''sum(case '+@col+' when

''''''+'+@col+'+'''''' then '+@content+' else 0 end) as ''''''+'+@col+'+'''''',''

,GID=0,Sort= '+@Sortfield+', SubSort = '+@SubSortfield+' into ##tmp from (select

'+@col+'=replace('+@col+','''''''',''''''''''''),'+@Sortfield+','+@SubSortfield+' from

'+@colTable+')a')

SELECT @i=MAX(len(COL)) FROM ##tmp
SET @i=4000/@i

UPDATE ##tmp SET GID=ID/@i

SELECT @i=MAX(GID),@mc=cast(@i AS varchar(50)) FROM ##tmp
SELECT

@declareSql='',@initSql='',@SubsectionSQL='',@CombinationSQL='',@EndFromSQL=''

WHILE @i>=0
BEGIN
SELECT @ic=cast(@i AS varchar(50)),@i=@i-1,@declareSql='@'+@ic+' as

varchar(4000),'+@declareSql,@initSql='@'+@ic+'='''','+@initSql,
@SubsectionSQL='select @'+@ic+'=@'+@ic+'+COL from ##tmp where

gid='''+@ic+''' order by Sort, SubSort '+char(13)

+@SubsectionSQL,@CombinationSQL='@'+@ic+'+'+@CombinationSQL
END

SET @EndFromSQL=''' into ##CrossTable from '+@table+' where '+@where+' group by

'+@groupRow+''''
SELECT @declareSql='declare '+left(@declareSql,len(@declareSql)-1)+char

(13),@initSql='select '+left(@initSql,len(@initSql)-1)+char(13),@CombinationSQL=left

(@CombinationSQL,len(@CombinationSQL)-1)
EXEC(@declareSql+@initSql+@SubsectionSQL+
'set @'+@mc+'=left(@'+@mc+',len(@'+@mc+')-1)'+
'exec(''select '+@sumRow+',''+'+@CombinationSQL+'+'+@EndFromSQL+')'
)

EXEC('UPDATE ##CrossTable SET '+@showSum+' = ''总计'', '+@showSubtotal+' = null

WHERE '+@showSum+' IS NULL ')

SELECT * FROM ##CrossTable
DROP TABLE ##tmp
DROP TABLE ##CrossTable