ABAP开发中选择屏幕的制造中，经常会有下拉列表！下面共享段实例

TYPE-POOLS: vrm.
DATA: it_val TYPE vrm_values,
      w_line LIKE LINE OF it_val.
PARAMETERS p_bukrs LIKE t001-bukrs AS LISTBOX
           VISIBLE LENGTH 25 OBLIGATORY.

INITIALIZATION.
  SELECT bukrs butxt FROM t001 INTO (w_line-key, w_line-text).
***这部分可以定义你想在下拉列表中展示的数据
    APPEND w_line TO it_val.
  ENDSELECT.

AT SELECTION-SCREEN OUTPUT.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'P_BUKRS'
      values = it_val.
END-OF-SELECTION.
  WRITE: / 'Company Code:', p_bukrs.