Oracle Forms多记录块更新Table1表仅更新最后一条记录的问题

我来帮你搞定这个更新只生效最后一条的问题～首先得先搞清楚你原来代码的问题出在哪：

问题根源 #

1. 没有逐行遍历块记录：你用for i in 1 .. :rec_count loop循环，但这个循环并没有实际导航到块里的每一行，:value和:new始终指向当前块的最后一条记录的值，所以循环执行多次都是在用最后一行的数值去更新，自然只会看到最后一条的更新效果。
2. 无法区分重复记录：你的table1里有重复的value（比如两个3），用where value = :value会把所有相同value的行都改成同一个值，根本没法实现“每行对应更新”的需求。

解决方案 #

要实现逐行对应更新，核心是用唯一主键关联块记录和数据库表记录，同时正确遍历块里的每一行。

第一步：确保table1有主键

首先你的table1必须有唯一主键（比如id列），这样才能精准区分每一条记录。如果还没有主键，先给表添加主键：

ALTER TABLE table1 ADD (id NUMBER GENERATED ALWAYS AS IDENTITY PRIMARY KEY);

同时你的多行块要包含这个id列（因为你用的是select * from table1，所以只要表有id，块里就会自动包含）。

第二步：修正Post Form Commit触发器代码

用Oracle Forms的内置导航API来逐行遍历块记录，并用主键精准更新：

DECLARE
    v_table_id table1.id%TYPE;
    v_new_val NUMBER;
BEGIN
    -- 导航到你的多行块（替换成实际的块名称）
    GO_BLOCK('YOUR_BLOCK_NAME');
    FIRST_RECORD; -- 定位到块的第一条记录
    
    LOOP
        -- 获取当前行的主键和new列的值
        v_table_id := :YOUR_BLOCK_NAME.id;
        v_new_val := :YOUR_BLOCK_NAME.new;
        
        -- 用主键精准更新对应行
        UPDATE table1 
        SET value = v_new_val
        WHERE id = v_table_id;
        
        -- 判断是否到了最后一条记录，是的话退出循环
        EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
        NEXT_RECORD; -- 导航到下一条记录
    END LOOP;
END;

代码说明 #

• GO_BLOCK和导航API：FIRST_RECORD、NEXT_RECORD是Oracle Forms专门用来操作块记录导航的内置过程，能确保你真正遍历每一行记录。
• 主键关联：用where id = v_table_id替代原来的where value = :value，保证只会更新当前块行对应的数据库表行，完全避免重复值的干扰。

这样修改后，就能实现你想要的逐行更新效果，更新后查询的结果就会和预期一致啦～

内容的提问来源于stack exchange，提问作者Questionnaire