如何将数据批量收集到以VARCHAR2为索引的NUMBER类型表中

不能直接通过BULK COLLECT将数据直接填充到你定义的values_table_type（带字符串索引的关联数组）中——因为BULK COLLECT仅支持批量填充按位置索引的集合（比如嵌套表、变长数组），不支持直接批量填充带自定义字符串索引的关联数组。不过可以通过间接方式实现你的需求，具体步骤如下：

修正原代码的基础问题 #

你的原存储过程存在两个编译错误：

1. 类型values_table_type的定义在变量v_values声明之后，Oracle会找不到该类型；
2. 变量v_values重复声明了两次。

需要先定义类型，再声明变量。

实现方案（批量收集后循环赋值） #

先通过BULK COLLECT同时收集列名和对应的值到两个按位置索引的集合中，再遍历集合将值存入带字符串索引的关联数组，同时拼接表名前缀作为索引键：

PROCEDURE pr_capacities_update(id_in IN NUMBER) 
AS
    -- 先定义关联数组类型
    TYPE values_table_type IS TABLE OF NUMBER INDEX BY VARCHAR2(100);
    v_values values_table_type;
    
    -- 定义存储列名和值的集合
    TYPE col_name_list IS TABLE OF VARCHAR2(30);
    v_col_list col_name_list;
    v_value_list SYS.ODCINUMBERLIST;
BEGIN
    -- 批量收集列名和对应的值
    SELECT col, val
    BULK COLLECT INTO v_col_list, v_value_list
    FROM (
        SELECT col, val
        FROM DIST_TABLE
        UNPIVOT (val FOR col IN (APPRVD, TOT_CAP, NEW_CAP, EXIST_CAP))
        WHERE DIST_ID = id_in
    );
    
    -- 遍历集合，将值存入关联数组，拼接表名前缀作为索引
    FOR i IN 1..v_col_list.COUNT LOOP
        v_values('DIST_TABLE.' || v_col_list(i)) := v_value_list(i);
    END LOOP;
    
    -- 可选：测试输出示例
    -- IF v_values.EXISTS('DIST_TABLE.APPRVD') THEN
    --     DBMS_OUTPUT.PUT_LINE('APPRVD值：' || v_values('DIST_TABLE.APPRVD'));
    -- END IF;
END pr_capacities_update;

方案说明 #

1. 先通过UNPIVOT将原表的列转为行，同时获取列名（col）和对应的值（val）；
2. 用BULK COLLECT一次性将所有列名和值分别存入v_col_list和v_value_list；
3. 循环遍历两个集合，将DIST_TABLE.与列名拼接作为索引键，把对应的值存入关联数组v_values。

这种方式既保留了BULK COLLECT批量读取的高效性，又实现了你需要的带表名前缀的字符串索引存储需求。

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