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;