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

--測試





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