--创建自定义函数
create function f_str(@cd varchar(10))
returns varchar(8000)
as
begin
      declare @str varchar(8000)
      set @str=''
      select @str=@str+','+[编号] from 原表 where [产地]=@cd
      if @str is null
         return ''
 
      return stuff(@str,1,1,'')
end
go
--调用
select [产地],
       [编号]=dbo.f_str([产地])
from 原表
group by [产地]