if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=@a'
exec sp_executesql @s
,N'@縱軸 sysname out,@橫軸 sysname out'
,@縱軸 out,@橫軸 out
--生成交叉表處理語句
set @s='
set @s=''''
select @s=@s+'',[''+cast(['+@橫軸+'] as varchar)+'']=sum(case ['+@橫軸
+'] when ''''''+cast(['+@橫軸+'] as varchar)+'''''' then ['+@表體內容+'] else 0 end)''
from ['+@TableName+']
group by ['+@橫軸+']'
exec sp_executesql @s
,N'@s varchar(8000) out'
,@sql out
--是否生成合計字段的處理
declare @sum1 varchar(200),@sum2 varchar(200),@sum3 varchar(200)
select @sum1=case @是否加橫向合計
when 1 then ',[合計]=sum(['+@表體內容+'])'
else '' end
,@sum2=case @是否家縱向合計
when 1 then '['+@縱軸+']=case grouping(['
+@縱軸+']) when 1 then ''合計'' else cast(['
+@縱軸+'] as varchar) end'
else '['+@縱軸+']' end
,@sum3=case @是否家縱向合計
when 1 then ' with rollup'
else '' end
--生成交叉表
exec('select
'+@sum2+@sql+@sum1+'
from ['+@TableName+']
group by ['+@縱軸+']'+@sum3)
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_qry]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_qry]
GO
/*--生成交叉表的簡單通用存儲過程
根據指定的表名,縱橫字段,統計字段,自動生成交叉表
并可根據需要生成縱橫兩個方向的合計
注意,橫向字段數目如果大于縱向字段數目,將自動交換縱橫字段
如果不要此功能,則去掉交換處理部分
--鄒建 204.06(引用請保留此信息)--*/
/*--調用示例
exec p_qry 'syscolumns','id','colid','colid',1,1
--*/
create proc p_qry
@TableName sysname,--表名
@縱軸 sysname,--交叉表最左面的列
@橫軸 sysname,--交叉表最上面的列
@表體內容 sysname,--交叉表的數數據字段
@是否加橫向合計 bit,--為1時在交叉表橫向最右邊加橫向合計
@是否家縱向合計 bit--為1時在交叉表縱向最下邊加縱向合計
as
declare @s nvarchar(4000),@sql varchar(8000)
--判斷橫向字段是否大于縱向字段數目,如果是,則交換縱橫字段
set @s='declare @a sysname
if(select case when count(distinct ['+@縱軸+'])from ['+@TableName+'])=1
select @a=@縱軸,@縱軸=@橫軸,@橫軸
=
發表評論
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
評論