业务场景：
通过点击删除按钮，通过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;
通过点击删除按钮，通过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博客 ” ，链接：https://blog.itpub.net/29961585/viewspace-2140976/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
