列转行

最近做毕业设计，遇到一个问题要进行行列转换，由于本人水平有限，网上的代码也很难看懂，所以就到这里来求一句代码望哪位大哥大姐能帮帮忙，小弟不胜感激！

原来的数据：
材料费用   人工费用   机械费用  其他费用
  150        260         330       400

要转换成：
费用类型   数目
材料费用   150
人工费用   260
机械费用   330
其他费用   400

 

Select
N'材料费用' As 费用类型 ,
材料费用 As 数目
From TableName
Union All
Select
N'人工费用' As 费用类型 ,
人工费用 As 数目
From TableName
Union All
Select
N'机械费用' As 费用类型 ,
机械费用 As 数目
From TableName
Union All
Select
N'其他费用' As 费用类型 ,
其他费用 As 数目
From TableName

 

--如果不知列名，用動態語句
Declare @S Nvarchar(4000)
Set @S=''
Select @S=@S+'Select N'''+Name+N''' As 费用类型 ,'+Name+N' As 数目 From TEST Union All '
From SysColumns Where ID=OBJECT_ID('TEST') Order By ColID
Select @S=Left(@S,Len(@S)-10)
EXEC(@S)

--建立測試環境
Create Table TEST(
材料费用 Int,
人工费用 Int,
机械费用   Int,
其他费用 Int)
Insert TEST Select   150,        260        , 330       ,400
GO
--測試

--已知列名
Select
N'材料费用' As 费用类型 ,
材料费用 As 数目
From TEST
Union All
Select
N'人工费用' As 费用类型 ,
人工费用 As 数目
From TEST
Union All
Select
N'机械费用' As 费用类型 ,
机械费用 As 数目
From TEST
Union All
Select
N'其他费用' As 费用类型 ,
其他费用 As 数目
From TEST

--如果不知列名，用動態語句
Declare @S Nvarchar(4000)
Set @S=''
Select @S=@S+'Select N'''+Name+N''' As 费用类型 ,'+Name+N' As 数目 From TEST Union All '
From SysColumns Where ID=OBJECT_ID('TEST') Order By ColID
Select @S=Left(@S,Len(@S)-10)
EXEC(@S)
GO
--刪除測試環境
Drop Table TEST
GO
--結果
/*
费用类型 数目
材料费用 150
人工费用 260
机械费用 330
其他费用 400
*/

 

--来个动态的
create table tb(材料费用 int,人工费用 int,机械费用 int,其他费用 int)
insert into tb select 150,260,330,400
go

declare @sql varchar(8000)
set @sql=''
select @sql=@sql+' union all select ,'''+name+''' as 费用类型,'+name+' as 数目 from tb ' from syscolumns where id=object_id('tb') order by colid
set @sql=replace(@sql,'union all select ,','union all select ')
set @sql=stuff(@sql,1,11,'')
exec(@sql)

drop table tb

 

--上面的写的有点问题，太繁琐了．修改下
create table tb(材料费用 int,人工费用 int,机械费用 int,其他费用 int)
insert into tb select 150,260,330,400
go

declare @sql varchar(8000)
set @sql=''
select @sql=@sql+' union all select '''+name+''' as 费用类型,'+name+' as 数目 from tb ' from syscolumns where id=object_id('tb') order by colid
set @sql=stuff(@sql,1,11,'')
exec(@sql)

drop table tb