递归用函数、存储过程实现的效果

--測試

<!-- [endif]-->

create table ta ( 项目 varchar ( 20), 上级项目 varchar ( 20), num int )

insert ta

select 'A' , '' , 100 union all

select 'B' , 'A' , 200 union all

select 'C' , 'B' , 300 union all

select 'D' , 'B' , 400 union all

select 'E' , 'C' , 500 union all

select 'F' , 'D' , 600 union all

select 'H' , 'E' , 700 union all

select 'G' , 'F' , 800

-- 如果要显示上级的项目 :

create function roy_f( @ 项目 varchar ( 20))

returns varchar ( 100)

as

begin

declare @ 上级项目 varchar ( 20)

select @ 上级项目 = 上级项目 from ta where 项目 = @ 项目

return case when @ 上级项目 is null then null

else isnull ( dbo. roy_f( @ 上级项目 )+ '-' , '' )+ @ 项目 end

end

-- 如果显示各级项目的汇总金额 :

create function roy_f2( @ 项目 varchar ( 20))

returns int

as

begin

declare @tb table ( 项目 varchar ( 20), 上级项目 varchar ( 20), num int , lev int )

declare @i int , @sum int

set @i= 0

insert @tb select *, @i from ta where 项目 = @ 项目

while @@rowcount > 0

begin

set @i= @i+ 1

insert @tb

select a.*, @i

from ta a, @tb b

where b. 项目 = a. 上级项目 and b. lev= @i- 1

end

select @sum= sum ( num) from @tb

return @sum

end

-- 测试 :

select 项目 , 金额 = dbo. roy_f2( 项目 ), 关系 = dbo. roy_f( 项目 ) from ta

/*

项目 金额 关系

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

A 3600 A

B 3500 A-B

C 1500 A-B-C

D 1800 A-B-D

E 1200 A-B-C-E

F 1400 A-B-D-F

H 700 A-B-C-E-H

G 800 A-B-D-F-G

（所影响的行数为 8 行）

*/

-- 用存储过程统计 :

create proc roy_p @ 项目 varchar ( 20)

as

begin

declare @i int

set @i= 0

select *, 级数 = @i into #

from ta where 项目 = @ 项目

while @@rowcount > 0

begin

set @i= @i+ 1

insert #

select ta.*, 级数 = @i

from ta, # b

where ta. 上级项目 = b. 项目

and b. 级数 = @i- 1

end

select [sum]= sum ( num) from #

end

-- 测试 :

exec roy_p 'A'

/*

sum

-----------

3600

（所影响的行数为 1 行）

*/

-- 删除测试 :

drop function roy_f, roy_f2

drop proc roy_p

drop table ta