--修改邮箱
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;
原文：http://www.cnblogs.com/czrwxw/p/4203920.html