每日一函式講解(2007-08-14)

函式：VRM_SET_VALUES

[@more@]

說明：初始化ListBox的選項
引數：EXPORTING
ID 　：ListBox的控制元件名稱
VALUES ：要加入ListBox的選項的內表資料
例子：
TYPE-POOLS: vrm.

DATA: it_val TYPE vrm_values,
wa_line LIKE LINE OF it_val.

WA_LINE-KEY = '1'.
WA_LINE-TEXT = '選項1'.
INSERT WA_LINE INTO TABLE IT_VAL.”加入選項記錄至內表
......

CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = 'FIELDNAME'
VALUES = IT_VAL
EXCEPTIONS
ID_ILLEGAL_NAME = 1
OTHERS = 2
.
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.

相關：VRM_GET_VALUES函式與VRM_SET_VALUES剛好相反，它是取得ListBox中的選項記錄，引數都相同，只不過是Values是EXCEPTIONS引數。如下：
call function 'VRM_GET_VALUES'
exporting
id = 'FIELDNAME'
IMPORTING
VALUES = IT_VAL
EXCEPTIONS
ID_NOT_FOUND = 1
OTHERS = 2
.
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.