select * from scott.emp;
==============for 循环=======================
declare empno NUMBER(4,0); ename VARCHAR2(10 BYTE); sal NUMBER(7,2);begin for REC in (select empno, ename, sal from scott.emp) loop begin empno := REC.empno; ename := REC.ename; sal := REC.sal; /*---------------------------------写入一条明细开始------------------------------*/ if NVL(empno,0) <> 0 then begin ......
阅读全文