下拉框

REPORT  Z_LISTBOX.
TYPE-POOLS:VRM.
DATA: name type vrm_id,
      list TYPE vrm_values,
      value LIKE LINE OF LIST.
PARAMETER: listbox1(20) AS LISTBOX VISIBLE LENGTH 20.

AT SELECTION-SCREEN OUTPUT.
  REFRESH list.
  CLEAR list.
  name = 'listbox1'.
  value-key = '1'.
  value-text = 'Chinese'.
  APPEND value to list.
  value-key = '2'.
  value-text = 'American'.
  APPEND value to list.
  value-key = '3'.
  value-text = 'English'.
  APPEND value to list.
  value-key = '4'.
  value-text = 'French'.
  APPEND value to list.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID              = name
      VALUES          = LIST
    EXCEPTIONS
      ID_ILLEGAL_NAME = 1
      OTHERS          = 2.