create or replace procedure ZXM
as
CURSOR cure IS
  select vcuserid,ncreditcount from users;begin
  for c in cure loop
    update tbbuylist set iscore=c.ncreditcount where vcbuid=c.vcuserid;
  end loop;
  exception
when no_data_found then
dbms_output.PUT_LINE('没有数据');
end;