关于在PL/SQL中使用正确的循环控制

早妖

　　当你在 PL/SQL 中处理一个被索引的表时，很多情况下你不能确定表上是否存在索引，所以你不能使用最明显的 FOR 循环方式来循环表中的值。例如： 　　 　　Declare 　　　　type my list_type is table of number index by pls_integer; 　　　　mylist mylist_type; 　　begin 　　　　-- start at 2, instead of 1 　　　　mylist(2) := 2; 　　　　mylist(3) := 3; 　　　　-- skip 4 and 5 　　　　mylist(6) := 6; 　　　　for i in 1..mylist.count loop 　　　　　　dbms_output.put_line(mylist(i)); 　　　　end loop; 　　end; 　　/ 　　 　　前面的代码将返回 ORA-01403 错误：由于缺少索引1，没有发现数据。 　　 　　如果你尝试使用 .FIRST/.LAST 修正这个问题，那么你将自动地从第一个索引开始循环，直到到达最后一个索引，如下： 　　 　　Declare 　　　　type mylist_type is table of number index by pls_integer; 　　　　mylist mylist_type; 　　begin 　　　　mylist(2) := 2; 　　　　mylist(3) := 3; 　　　　mylist(5) := 6; 　　　　for i in mylist.first .. mylist.last loop 　　　　　　dbms_output.put_lin(mylist(i)); 　　　　end loop; 　　end; 　　/ 　　 　　然而，你依然得到一个 ORA-01403 错误：由于跳过值，没有发现数据。要进一步避免这种错误，你可以在访问索引前使用 EXISTS 方法测试它是否存在： 　　 　　Declare 　　　　type mylist_type is table of number index by pls_integer; 　　　　mylist mylist_type; 　　begin 　　　　mylist(2) := 2; 　　　　mylist(3) := 3; 　　　　mylist(6) := 6; 　　　　for i in mylist.first..mylist.last loop 　　　　　　if (mylist.exists(i)) then 　　　　　　　　dbms_output.put_line(mylist(i)); 　　　　　　end if; 　　　　end loop; 　　end; 　　/ 　　 　　或者，你可以通过.NEXT 属性使用常规的 LOOP 循环来迭代一个表上存在的索引——但是你必须声明循环计数器： 　　 　　Declare 　　　　type mylist_type is table of number index by pls_integer; 　　　　mylist mylist_type; 　　　　i pls_integer; 　　begin 　　　　mylist(2) := 2; 　　　　mylist(3) := 3; 　　　　mylist(6) := 6; 　　　　i := mylist.first; 　　　　loop 　　　　　　dbms_output.put_line(mylist(i)); 　　　　　　exit when i = mylist.last; 　　　　　　i := mylist.next(i); 　　　　end loop; 　　end; 　　/ 　　 　　当你不确定哪些值已经被删除或装载而导致缺少索引时，可以使用上面这两个有效的方法作为默认方法。但是对于使用 FORALL 语句的大量操作，这两种方法都不能正确运行，原因是 FORALL 语句并不是一个真正的循环，而且其语法只能带一个下加界，一个上边界和一个 SQL DML 语句。 　　 　　然而，Oracle 10g中引入了两个新子句，这两个子句允许你避免这种局限性。向 FORALL 语法添加一个 INDICES OF 子句允许你自动地循环一个表中的所有值，而无须担心索引是否存在： 　　 　　Declare 　　　　type mylist_type is table of number index by pls_integer; 　　　　mylist mylist_type; 　　begin 　　　　mylist(2) := 2; 　　　　mylist(3) := 3; 　　　　mylist(6) := 6; 　　　　foralli in indices of mylist 　　　　　　insert into mynumtable values(mylist(i)); 　　end; 　　/ 　　 　　另外还有一个 VALUES OF 子句，该子句使用你的嵌套表的值，或者被表索引的值作为循环的下标： 　　 　　Declare 　　　　type mysubs_type is table of pls_integer index by pls_integer; 　　　　type mylist_type is table of number index by pls_integer; 　　　　mysubs mylist_type; 　　　　mylist mylist_type; 　　begin 　　　　mylist(2) := 2; 　　　　mysubs(10) := 2;　　-- point to mylist(2) 　　　　mylist(3) := 3; 　　　　mysubs(20) := 3;　　-- point to mylist(3) 　　　　mylist(6) := 6; 　　　　mysubs(30) := 6;　　-- point to mylist(6) 　　　　mysubs(40) := 3;　　-- point to mylist(3), again! 　　　　foralli in values ofmysubs 　　　　　　insert into mynumtable values(mylist(i)); 　　end; 　　/ <