EBS FORM 中DELETE_RECORD的用法

例子：
　　通过点击删除按钮，通过DELETE_RECORD删除所选数据
主要实现代码：

1 GO_BLOCK('folder'); 
2 first_record;
3 LOOP
4     IF NVL(:folder.ck_flag, 'N') = 'Y' THEN
5         delete_record;
6     END IF;
7     EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
8     next_record;
9 END LOOP;    

问题：
　　如果最后一行数据是被选中的，但并没有被删除
解决办法：
　　在循环出来后再加一个判断，进行删除

 1 GO_BLOCK('folder'); 
 2 first_record;
 3 LOOP
 4     IF NVL(:folder.ck_flag, 'N') = 'Y' THEN
 5         delete_record;
 6     END IF;
 7     EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
 8     next_record;
 9 END LOOP;
10     
11 IF NVL(:folder.ck_flag, 'N') = 'Y' THEN
12     delete_record;
13 END IF;