变量仍然用不好，不知错在那？

ALTER   proc usp_create_zb_fk
as
declare @i int,@zdm varchar(10),@bl varchar(200)
set @i=69
while @i>0
begin
set @i=@i-1
set @zdm=col_name(object_id('zzryxxb'),@i)
if substring(@zdm,1,2)='d_' 
begin
set @bl='alter table zzryxxb add constraint fk_zb_'+substring(@zdm,3,2)+' foreign key ('+@zdm+') references '+substring(@zdm,1,4)+'(code)'
exec(@bl)
  end
end
return