在网上找了一些资料,不是实现不了就是不够完整.

1.建立parameter method_ISMODIFY, 初始值为FALSE

2. BLOCK 级别的 when-new-record-instance

if :PARAMETER.method_ISMODIFY = 'TRUE' THEN

:system.message_level := 25;

commit_form;

:system.message_level := 0;

:PARAMETER.method_ISMODIFY := 'FALSE';

END IF;

3. 在行上最后一个ITEM ,when-new-item-instance 写:

:PARAMETER.method_ISMODIFY := 'TRUE';

用一下方法要结合 写INSERT 语句,不如这个效率高

FORMS_DDL('commit_form');

FORMS_DDL('commit');