请教交叉表的语句

[ggzgeguoz]

我现在有四张SQL表.

表1:科目内码 科目名称
1 A
2 B
3 C
4 D
表2:科目内码 项目号 金额
1 1 100
2 2 200
3 3 300
4 4 400
1 2 150
2 3 350
2 2 50
表3:项目内码 项目名称
1 AA
2 BB
3 CC
4 DD
表4:项目内码 项目号
1 4
2 3
3 2
4 1

请问,如何能得出下面的表结果(查询)
项目名称 A B C D (指会计科目)
AA 100
BB 150 250
CC 350 300
DD 400

[liangCK]

/*
标题：普通行列转换(version 2.0)
作者：爱新觉罗.毓华 
时间：2008-03-09
地点：广东深圳
说明：普通行列转换(version 1.0)仅针对sql server 2000提供静态和动态写法，version 2.0增加sql server 2005的有关写法。

问题：假设有张学生成绩表(tb)如下:
姓名 课程 分数
张三 语文 74
张三 数学 83
张三 物理 93
李四 语文 74
李四 数学 84
李四 物理 94
想变成(得到如下结果)： 
姓名 语文 数学 物理 
---- ---- ---- ----
李四 74   84   94
张三 74   83   93
-------------------
*/

create table tb(姓名 varchar(10) , 课程 varchar(10) , 分数 int)
insert into tb values('张三' , '语文' , 74)
insert into tb values('张三' , '数学' , 83)
insert into tb values('张三' , '物理' , 93)
insert into tb values('李四' , '语文' , 74)
insert into tb values('李四' , '数学' , 84)
insert into tb values('李四' , '物理' , 94)
go

--SQL SERVER 2000 静态SQL,指课程只有语文、数学、物理这三门课程。(以下同)
select 姓名 as 姓名 ,
  max(case 课程 when '语文' then 分数 else 0 end) 语文,
  max(case 课程 when '数学' then 分数 else 0 end) 数学,
  max(case 课程 when '物理' then 分数 else 0 end) 物理
from tb
group by 姓名

--SQL SERVER 2000 动态SQL,指课程不止语文、数学、物理这三门课程。(以下同)
declare @sql varchar(8000)
set @sql = 'select 姓名 '
select @sql = @sql + ' , max(case 课程 when ''' + 课程 + ''' then 分数 else 0 end) [' + 课程 + ']'
from (select distinct 课程 from tb) as a
set @sql = @sql + ' from tb group by 姓名'
exec(@sql) 

--SQL SERVER 2005 静态SQL。
select * from (select * from tb) a pivot (max(分数) for 课程 in (语文,数学,物理)) b

--SQL SERVER 2005 动态SQL。
declare @sql varchar(8000)
select @sql = isnull(@sql + ',' , '') + 课程 from tb group by 课程
exec ('select * from (select * from tb) a pivot (max(分数) for 课程 in (' + @sql + ')) b')

---------------------------------

/*
问题：在上述结果的基础上加平均分，总分，得到如下结果：
姓名 语文 数学 物理 平均分 总分 
---- ---- ---- ---- ------ ----
李四 74   84   94   84.00  252
张三 74   83   93   83.33  250
*/

--SQL SERVER 2000 静态SQL。
select 姓名 姓名,
  max(case 课程 when '语文' then 分数 else 0 end) 语文,
  max(case 课程 when '数学' then 分数 else 0 end) 数学,
  max(case 课程 when '物理' then 分数 else 0 end) 物理,
  cast(avg(分数*1.0) as decimal(18,2)) 平均分,
  sum(分数) 总分
from tb
group by 姓名

--SQL SERVER 2000 动态SQL。
declare @sql varchar(8000)
set @sql = 'select 姓名 '
select @sql = @sql + ' , max(case 课程 when ''' + 课程 + ''' then 分数 else 0 end) [' + 课程 + ']'
from (select distinct 课程 from tb) as a
set @sql = @sql + ' , cast(avg(分数*1.0) as decimal(18,2)) 平均分 , sum(分数) 总分 from tb group by 姓名'
exec(@sql) 

--SQL SERVER 2005 静态SQL。
select m.* , n.平均分 , n.总分 from
(select * from (select * from tb) a pivot (max(分数) for 课程 in (语文,数学,物理)) b) m,
(select 姓名 , cast(avg(分数*1.0) as decimal(18,2)) 平均分 , sum(分数) 总分 from tb group by 姓名) n
where m.姓名 = n.姓名

--SQL SERVER 2005 动态SQL。
declare @sql varchar(8000)
select @sql = isnull(@sql + ',' , '') + 课程 from tb group by 课程
exec ('select m.* , n.平均分 , n.总分 from
(select * from (select * from tb) a pivot (max(分数) for 课程 in (' + @sql + ')) b) m , 
(select 姓名 , cast(avg(分数*1.0) as decimal(18,2)) 平均分 , sum(分数) 总分 from tb group by 姓名) n
where m.姓名 = n.姓名')

drop table tb    

------------------
------------------

/*
问题：如果上述两表互相换一下：即表结构和数据为：
姓名 语文 数学 物理
张三 74　　83　　93
李四 74　　84　　94
想变成(得到如下结果)： 
姓名 课程 分数 
---- ---- ----
李四 语文 74
李四 数学 84
李四 物理 94
张三 语文 74
张三 数学 83
张三 物理 93
--------------
*/

create table tb(姓名 varchar(10) , 语文 int , 数学 int , 物理 int)
insert into tb values('张三',74,83,93)
insert into tb values('李四',74,84,94)
go

--SQL SERVER 2000 静态SQL。
select * from
(
 select 姓名 , 课程 = '语文' , 分数 = 语文 from tb 
 union all
 select 姓名 , 课程 = '数学' , 分数 = 数学 from tb
 union all
 select 姓名 , 课程 = '物理' , 分数 = 物理 from tb
) t
order by 姓名 , case 课程 when '语文' then 1 when '数学' then 2 when '物理' then 3 end

--SQL SERVER 2000 动态SQL。
--调用系统表动态生态。
declare @sql varchar(8000)
select @sql = isnull(@sql + ' union all ' , '' ) + ' select 姓名 , [课程] = ' + quotename(Name , '''') + ' , [分数] = ' + quotename(Name) + ' from tb'
from syscolumns 
where name! = N'姓名' and ID = object_id('tb') --表名tb，不包含列名为姓名的其它列
order by colid asc
exec(@sql + ' order by 姓名 ')

--SQL SERVER 2005 动态SQL。
select 姓名 , 课程 , 分数 from tb unpivot (分数 for 课程 in([语文] , [数学] , [物理])) t

--SQL SERVER 2005 动态SQL，同SQL SERVER 2000 动态SQL。

--------------------
/*
问题：在上述的结果上加个平均分，总分，得到如下结果：
姓名 课程   分数
---- ------ ------
李四 语文   74.00
李四 数学   84.00
李四 物理   94.00
李四 平均分 84.00
李四 总分   252.00
张三 语文   74.00
张三 数学   83.00
张三 物理   93.00
张三 平均分 83.33
张三 总分   250.00
------------------
*/

select * from
(
 select 姓名 as 姓名 , 课程 = '语文' , 分数 = 语文 from tb 
 union all
 select 姓名 as 姓名 , 课程 = '数学' , 分数 = 数学 from tb
 union all
 select 姓名 as 姓名 , 课程 = '物理' , 分数 = 物理 from tb
 union all
 select 姓名 as 姓名 , 课程 = '平均分' , 分数 = cast((语文 + 数学 + 物理)*1.0/3 as decimal(18,2)) from tb
 union all
 select 姓名 as 姓名 , 课程 = '总分' , 分数 = 语文 + 数学 + 物理 from tb
) t
order by 姓名 , case 课程 when '语文' then 1 when '数学' then 2 when '物理' then 3 when '平均分' then 4 when '总分' then 5 end

drop table tb

[liangCK]

--> 测试数据: #T1
if object_id('tempdb.dbo.#T1') is not null drop table #T1
create table #T1 (科目内码 int,科目名称 varchar(1))
insert into #T1
select 1,'A' union all
select 2,'B' union all
select 3,'C' union all
select 4,'D'
--> 测试数据: #T2
if object_id('tempdb.dbo.#T2') is not null drop table #T2
create table #T2 (科目内码 int,项目号 int,金额 int)
insert into #T2
select 1,1,100 union all
select 2,2,200 union all
select 3,3,300 union all
select 4,4,400 union all
select 1,2,150 union all
select 2,3,350 union all
select 2,2,50
--> 测试数据: #T3
if object_id('tempdb.dbo.#T3') is not null drop table #T3
create table #T3 (项目内码 int,项目名称 varchar(2))
insert into #T3
select 1,'AA' union all
select 2,'BB' union all
select 3,'CC' union all
select 4,'DD'

declare @sql nvarchar(4000)
set @sql='select c.项目名称'

select @sql=@sql+',sum(case when b.科目内码='+ltrim(科目内码)+' then b.金额 else 0 end) ['+科目名称+']'
from #T1

exec (@sql+' from #T1 a join #T2 b on a.科目内码=b.科目内码 join #T3 c on b.项目号=c.项目内码 group by c.项目名称')

/*
项目名称 A           B           C           D
---- ----------- ----------- ----------- -----------
AA   100         0           0           0
BB   150         250         0           0
CC   0           350         300         0
DD   0           0           0           400

(4 行受影响)

*/

[zhiguo2008]

declare @sql nvarchar(4000)
set @sql='select 项目名称'
select @sql=@sql+',['+科目名称+']=sum(case when 科目名称='''+科目名称+''' then 金额 else 0 end' from (select distinct 科目名称 from 表2，表1 where 表2.科目内码=表1.科目内码)A
set @sql=sql+' from (select 项目名称,科目名称，金额 from 表1,表2,表3,表4 where 表2.科目名称=表1.科目名称 and 表2.项目号=表4.项目号 and 表4.项目内码=表3.项目内码)B group by 项目名称'
exec ( @sql)

[zhiguo2008]

declare @sql nvarchar(4000)
set @sql='select b.项目名称'
select @sql=@sql+','''+科目名称+'''=sum(case when 科目名称='''+[科目名称]+''' then 金额 else 0 end)' from (select distinct 科目名称 from 表2,表1 where 表2.科目内码=表1.科目内码)A
print @sql
set @sql=@sql+' from (select 项目名称,科目名称,金额 from 表1,表2,表3,表4 where 表2.科目内码=表1.科目内码 and 表2.项目号=表4.项目号 and 表4.项目内码=表3.项目内码)B group by b.项目名称'
exec ( @sql)

select * from 表1
if object_id('tempdb.dbo.#T1') is not null drop table #T1
create table 表1 (科目内码 int,科目名称 varchar(1))
insert into 表1
select 1,'A' union all
select 2,'B' union all
select 3,'C' union all
select 4,'D'

create table 表2 (科目内码 int,项目号 int,金额 int)
insert into 表2
select 1,1,100 union all
select 2,2,200 union all
select 3,3,300 union all
select 4,4,400 union all
select 1,2,150 union all
select 2,3,350 union all
select 2,2,50

create table 表3 (项目内码 int,项目名称 varchar(2))
insert into 表3
select 1,'AA' union all
select 2,'BB' union all
select 3,'CC' union all
select 4,'DD'

create table 表4(项目内码 int,项目号 int)
insert into 表4 select 1,4 union select 2,3 union select 3,2 union select 4,1

[zhiguo2008]

declare @sql nvarchar(4000)
set @sql='select b.项目名称'
select @sql=@sql+','''+科目名称+'''=sum(case when 科目名称='''+[科目名称]+''' then 金额 else 0 end)' from (select distinct 科目名称 from 表2,表1 where 表2.科目内码=表1.科目内码)A

set @sql=@sql+' ,sum(b.金额) as 项目小计 from (select 项目名称,科目名称,金额 from 表1,表2,表3,表4 where 表2.科目内码=表1.科目内码 and 表2.项目号=表4.项目号 and 表4.项目内码=表3.项目内码)B group by b.项目名称'
exec ( @sql)

项目名称 A B C D 项目小计
---- ----------- ----------- ----------- ----------- -----------
AA 0 0 0 400 400
BB 0 350 300 0 650
CC 150 250 0 0 400
DD 100 0 0 0 100