一個返回它所有上級科目名稱的SQL函數

 

CREATE FUNCTION Getacctype(@accid varchar(20))
RETURNS varchar(300) AS 
BEGIN
declare @i int,@accidup varchar(20), @str varchar(300)
set @accid=@accid+'.'
set @accidup=''
set @str=''
set @i=1
while CHARINDEX('.',@accid)>0
  begin
    if @accidup=''
        set @accidup=substring(@accid, 1,CHARINDEX('.',@accid)-1)
    else
        set @accidup=@accidup+'.'+substring(@accid, 1,CHARINDEX('.',@accid)-1)
    set @accid=substring(@accid,CHARINDEX('.',@accid)+1,len(@accid)-CHARINDEX('.',@accid))
    if  @str=''
       set @str= (select acctype from HD_AccType where accid=@accidup)
    else
       set  @str=@str+'->'+  (select acctype  from HD_AccType where accid=@accidup)
end
return  @str
END