--修改邮箱declare i int:=1; begin loop update tbuser set email='lexue'||i||'@126.com' where userid=(select userid from (select rownum r,userid from tbuser) where r=i); exit when i=992; i:=i+1; end loop; end;