效果如下:
部分代码:
选择界面
字段内容的设置:
FORM FRM_SET_LISTBOX .
DATA: VID TYPE VRM_ID,
LIST TYPE VRM_VALUES,
VALUE LIKE LINE OF LIST.
REFRESH LIST.
VALUE-KEY = '01'.
VALUE-TEXT = '总部'.
APPEND VALUE TO LIST.
VALUE-KEY = '02'.
VALUE-TEXT = '棒材'.
APPEND VALUE TO LIST.
VALUE-KEY = '03'.
VALUE-TEXT = '线材'.
APPEND VALUE TO LIST.
VALUE-KEY = '04'.
VALUE-TEXT = '板带'.
APPEND VALUE TO LIST.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = 'P_SYB'
VALUES = LIST.
ENDFORM.