Form动态下拉框

FORM级触发器：WHEN-NEW-FORM-INSTANCE

 

1.定义：

     V_LIST_NAME11 VARCHAR2(100) := 'QUERY_FIND.UPDATE_TYPE'; 

 

    CURSOR CSR_1 IS

      SELECT HRL.LOOKUP_CODE, HRL.MEANING

        FROM FND_LOOKUP_VALUES_VL HRL

       WHERE HRL.LOOKUP_TYPE = 'CUX_SHIP_MOD_TYPE'

       ORDER BY HRL.MEANING;

2.赋值：

 

--清除

CLEAR_LIST(V_LIST_NAME11); 

 

 

赋值：

      I:=1;

      FOR CSR_REC IN CSR_1 LOOP

        ADD_LIST_ELEMENT(V_LIST_NAME11,

                         I,

                         CSR_REC.MEANING,

                         CSR_REC.LOOKUP_CODE);                            

        I := I + 1;

      END LOOP;