业务场景:
通过点击删除按钮,通过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博客 ” ,链接:http://blog.itpub.net/29961585/viewspace-2140976/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/29961585/viewspace-2140976/