Oracle Apex中PLSQL游标变量未更新页面项问题排查

核心问题 #

你的代码存在三个关键问题，导致页面项:P1_COM_VALUE_FINAL始终返回相同值：

1. 游标分组逻辑错误：原游标按emp_id（c001）分区组合员工编码，而非需求中的部门ID（c002），导致生成的c003_combined不是对应部门的完整编码组合，匹配时拿错了对比基准。
2. 游标重复返回同一部门数据：原游标未去重，同一个部门下的多条员工记录会重复返回相同的c003_combined，循环中重复赋值同一v_available，最终覆盖为同一结果；若批量处理多部门，原游标WHERE子句的c002= :DEPT_ID会限制只返回单个部门数据。
3. 内部查询无唯一性保障：employee_data查询未限制返回条数，若同一部门存在多条匹配记录，会随机返回一条，导致结果不可控；同时字符串拼接存在语法错误，异常提示无法正确显示部门ID。

修正后的PL/SQL代码 #

Declare
    v_arranged    VARCHAR2(1000);
    v_available   VARCHAR2(1000);
    v_error       VARCHAR2(10000) := null;

    -- 修正：按部门ID分区组合员工编码，同时去重避免重复处理同一部门
    Cursor cur is
        SELECT DISTINCT c001, c002,
               LISTAGG(c003, '-') WITHIN GROUP (ORDER BY c003) 
               OVER (PARTITION BY c002) c003_combined
        FROM apex_collections 
        WHERE collection_name='COLX' 
          AND c001 = :EMP_ID; -- 若需批量处理多部门，可移除 c002=:DEPT_ID 条件

Begin
    FOR crec in cur LOOP
        BEGIN
            -- 修正：添加fetch first 1 row only确保只返回一条匹配记录，用trim避免空格匹配失败
            select emp_arranged, emp_comb_avail 
            into v_arranged, v_available
            from (
                select emp_arranged, emp_comb_avail
                from (
                    select 
                        (select listagg(trim(emp_arranged), '-') within group (order by emp_arranged) 
                         from (select regexp_substr(emp_comb_avail, '[^-]+', 1, level) emp_arranged
                               from dual 
                               connect by regexp_substr(emp_comb_avail, '[^-]+', 1, level) is not null)
                        ) emp_arranged, 
                        emp_comb_avail
                    from employee_data
                    where department_id = crec.c002
                )
                where emp_arranged = crec.c003_combined
            )
            fetch first 1 row only;

            -- 若批量处理多部门，可改为拼接结果而非覆盖，比如：
            -- :P1_COM_VALUE_FINAL := :P1_COM_VALUE_FINAL || ',' || v_available;
            :P1_COM_VALUE_FINAL := v_available;

        EXCEPTION
            WHEN NO_DATA_FOUND THEN
                -- 修正字符串拼接语法错误
                v_error := 'Error with Department ID ' || crec.c002;
                return v_error;
            WHEN TOO_MANY_ROWS THEN
                v_error := 'Multiple matching combinations found for Department ID ' || crec.c002;
                return v_error;
        END;
    END LOOP;
END;

额外优化建议 #

• 若需批量处理多个部门，将页面项:P1_COM_VALUE_FINAL改为字符串拼接模式，避免覆盖；若为单次处理单个部门，可在游标WHERE子句添加c002= :DEPT_ID，并移除DISTINCT。
• 检查employee_data表，确保每个部门的有效编码组合唯一，避免出现多条匹配记录。
• 循环开始前显式置空页面项：:P1_COM_VALUE_FINAL := null;，确保初始状态干净。

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