FORM中循环遍历方式

格式：

go_block('BLOCK_NAME');
last_record;
loop

--处理事件程序

exit when :system.cursor_record = 1;
previous_record;
end loop; 

示例：

--    循环遍历
    go_block('MAIN');
    last_record;
    loop
      --
      if :MAIN.CHECKBOX = 1  and :MAIN.STATUS_CODE not in ('NEW','REFUSED') then
        fnd_message.set_string('请检查购汇单状态,只允许提交状态为''新建''或''审批拒绝''');
        fnd_message.show;
        raise form_trigger_failure;
      end if;  
    
    exit when :system.cursor_record = 1;
    previous_record;
    end loop;