求行列轉換合並語句

Question

create table A
(
  单号 varchar(10),
  书号 varchar(10),
  数量 int
)insert A select '1','VB',5
insert A select '1','SQL',8
insert A select '2','EXCEL',5
insert A select '2','Word',2
insert A select '2','Windows',1create Function T_FUN(@ID varchar) Returns varchar(8000)
as
begin
    DECLARE @T_SQL varchar(800)
    set @T_SQL=''
    select @T_SQL=@T_SQL + 书号 +'*' +cast(数量 as varchar) +',' from A where 单号=@ID
    set @T_SQL=left(@T_SQL,len(@T_SQL)-1)
    return @T_SQL
endselect 单号,dbo.T_FUN(单号) from A group by 单号