EBS FORM 中RECORD的用法注意

业务场景：
  通过点击删除按钮，通过DELETE_RECORD删除所选数据
主要实现代码：
     GO_BLOCK('folder'); 
     first_record;
      LOOP
         IF NVL(:folder.ck_flag, 'N') = 'Y' THEN
            delete_record;
          END IF;
          EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
         next_record;
    END LOOP;

问题：
    发现如果最后一行数据是选中的，但并没有删除
解决办法：
    在循环出来后再加一个判断，进行删除
     GO_BLOCK('folder'); 
     first_record;
      LOOP
         IF NVL(:folder.ck_flag, 'N') = 'Y' THEN
            delete_record;
          END IF;
          EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
         next_record;
    END LOOP;
    IF NVL(:folder.ck_flag, 'N') = 'Y' THEN
            delete_record;
          END IF;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/29961585/viewspace-2140976/，如需转载，请注明出处，否则将追究法律责任。