PL/SQL中如何基于SELECT结果为多个变量赋值（Apex适用）

针对你需要通过SELECT语句给多个变量赋值、适配Apex使用的需求，结合“部分办公室缺少某些部门”的场景，提供两种可行方案：

方案1：单独变量存储各部门邮箱列表 #

适合固定4个部门的场景，通过子查询+笛卡尔积确保返回单行结果，用NVL处理无数据的部门：

DECLARE
  v_dept1_emails VARCHAR2(4000); -- 部门1邮箱集合（用分号分隔）
  v_dept2_emails VARCHAR2(4000); -- 部门2邮箱集合
  v_dept3_emails VARCHAR2(4000); -- 部门3邮箱集合
  v_dept4_emails VARCHAR2(4000); -- 部门4邮箱集合
  v_target_office VARCHAR2(100) := '你的目标办公室名称'; -- 替换为实际办公室名称
BEGIN
  -- 四个子查询分别聚合对应部门的邮箱，笛卡尔积确保返回单行
  SELECT
    NVL(d1.emails, '') AS dept1_emails,
    NVL(d2.emails, '') AS dept2_emails,
    NVL(d3.emails, '') AS dept3_emails,
    NVL(d4.emails, '') AS dept4_emails
  INTO
    v_dept1_emails,
    v_dept2_emails,
    v_dept3_emails,
    v_dept4_emails
  FROM
    (SELECT LISTAGG(email, '; ') WITHIN GROUP (ORDER BY email) AS emails
     FROM CONTACT_TABLE
     WHERE office = v_target_office AND department = '部门1') d1,
    (SELECT LISTAGG(email, '; ') WITHIN GROUP (ORDER BY email) AS emails
     FROM CONTACT_TABLE
     WHERE office = v_target_office AND department = '部门2') d2,
    (SELECT LISTAGG(email, '; ') WITHIN GROUP (ORDER BY email) AS emails
     FROM CONTACT_TABLE
     WHERE office = v_target_office AND department = '部门3') d3,
    (SELECT LISTAGG(email, '; ') WITHIN GROUP (ORDER BY email) AS emails
     FROM CONTACT_TABLE
     WHERE office = v_target_office AND department = '部门4') d4;

  -- 直接将变量赋值给Apex页面项（替换为你的实际页面项名称）
  :P1_DEPT1_EMAILS := v_dept1_emails;
  :P1_DEPT2_EMAILS := v_dept2_emails;
  :P1_DEPT3_EMAILS := v_dept3_emails;
  :P1_DEPT4_EMAILS := v_dept4_emails;
END;
/

关键说明 #

• 每个子查询仅对应一个部门，无数据时返回NULL，NVL将其转为空字符串，避免SELECT INTO因无返回值报错。
• 笛卡尔积让四个子查询的结果合并为一行，符合SELECT INTO必须返回单行的要求。

方案2：用集合类型灵活处理动态部门 #

如果后续部门数量可能变化，用集合存储结果更易维护：

DECLARE
  -- 定义记录类型：存储部门名称+对应邮箱列表
  TYPE dept_email_rec IS RECORD (
    department VARCHAR2(100),
    emails VARCHAR2(4000)
  );
  -- 定义表类型：存储多个部门的记录
  TYPE dept_email_tab IS TABLE OF dept_email_rec;
  v_dept_emails dept_email_tab;
  v_target_office VARCHAR2(100) := '你的目标办公室名称';
BEGIN
  -- 批量获取当前办公室所有部门的邮箱聚合结果
  SELECT department, LISTAGG(email, '; ') WITHIN GROUP (ORDER BY email) AS emails
  BULK COLLECT INTO v_dept_emails
  FROM CONTACT_TABLE
  WHERE office = v_target_office
  GROUP BY department;

  -- 遍历集合，给对应Apex页面项赋值
  FOR i IN 1..v_dept_emails.COUNT LOOP
    CASE v_dept_emails(i).department
      WHEN '部门1' THEN :P1_DEPT1_EMAILS := v_dept_emails(i).emails;
      WHEN '部门2' THEN :P1_DEPT2_EMAILS := v_dept_emails(i).emails;
      WHEN '部门3' THEN :P1_DEPT3_EMAILS := v_dept_emails(i).emails;
      WHEN '部门4' THEN :P1_DEPT4_EMAILS := v_dept_emails(i).emails;
    END CASE;
  END LOOP;

  -- 给当前办公室不存在的部门项设为空字符串
  IF NOT v_dept_emails.EXISTS('部门1') THEN :P1_DEPT1_EMAILS := ''; END IF;
  IF NOT v_dept_emails.EXISTS('部门2') THEN :P1_DEPT2_EMAILS := ''; END IF;
  IF NOT v_dept_emails.EXISTS('部门3') THEN :P1_DEPT3_EMAILS := ''; END IF;
  IF NOT v_dept_emails.EXISTS('部门4') THEN :P1_DEPT4_EMAILS := ''; END IF;
END;
/

关键说明 #

• BULK COLLECT直接将分组结果存入集合，无需担心返回多行的问题。
• 遍历集合匹配部门赋值，后续新增部门只需修改CASE和空值判断部分，扩展性更强。

你之前遇到的问题原因 #

1. 原LISTAGG代码缺少INTO：SELECT ... INTO是PL/SQL中给变量赋值的标准语法，必须指定接收结果的变量。
2. CASE语句报错：直接在SELECT中用CASE试图给多个变量赋值，会导致结果集行数或列数与变量不匹配，或者未处理空值导致无返回行，违反SELECT INTO的单行要求。

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