EBS FORM 中DELETE

mac2022-06-30 39

例子：　　通过点击删除按钮，通过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;

转载于:https://www.cnblogs.com/AI-xiaocai/p/11288872.html