<!-- /* Font Definitions */ @font-face {font-family:宋体; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-alt:SimSun; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:3 135135232 16 0 262145 0;} @font-face {font-family:"/@宋体"; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:3 135135232 16 0 262145 0;} /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:""; margin:0cm; margin-bottom:.0001pt; text-align:justify; text-justify:inter-ideograph; mso-pagination:none; font-size:10.5pt; mso-bidi-font-size:12.0pt; font-family:"Times New Roman"; mso-fareast-font-family:宋体; mso-font-kerning:1.0pt;} /* Page Definitions */ @page {mso-page-border-surround-header:no; mso-page-border-surround-footer:no;} @page Section1 {size:612.0pt 792.0pt; margin:72.0pt 90.0pt 72.0pt 90.0pt; mso-header-margin:36.0pt; mso-footer-margin:36.0pt; mso-paper-source:0;} div.Section1 {page:Section1;} -->
LOOP
--do something...
IF :SYSTEM.LAST_RECORD = 'TRUE'
THEN
EXIT;
END IF;
NEXT_RECORD;
-- v_i := v_i + 1;
END LOOP;
--example :
go_block('detail');
FIRST_RECORD;
LOOP
if :cancel_flag = 'Y' then
UPDATE xxcompany_oe_goods_label_all
SET cancel_flag = 'Y',
cancel_time = NVL (:header.cancel_time, SYSDATE)
WHERE gl_id= :gl_id;
end if;
COMMIT;
IF :SYSTEM.LAST_RECORD = 'TRUE'
THEN
EXIT;
END IF;
NEXT_RECORD;
-- v_i := v_i + 1;
END LOOP;
:parameter.p_query := 'y';
EXECUTE_QUERY;
:parameter.p_query := 'n';
本文转自:http://moonsoft.itpub.net/post/15182/286721
本文提供了一个使用 PLSQL 编写的示例程序,展示了如何利用 LOOP 和 IF 语句进行记录集的遍历及条件判断。通过对每条记录的处理,示例还介绍了如何更新数据库中的字段并提交更改。
1万+

被折叠的 条评论
为什么被折叠?



