SAP选择屏幕下拉框实现

DATA:vid TYPE vrm_id , "屏幕字段(可以是单个的I/O空间或者是Table Control中的一个单元格)
     list TYPE vrm_values,
     value LIKE LINE OF list.

PARAMETERS S_LSBOX TYPE c  AS LISTBOX VISIBLE LENGTH  DEFAULT ''.     “选择条件字段

*初始化时下拉框赋值
INITIALIZATION.

AT SELECTION-SCREEN OUTPUT

REFRESH LIST .

VALUE-KEY = '' . "这个就是变量P_LIST的值
VALUE-TEXT = 'ZPR0' . "这个是text
APPEND VALUE TO LIST .

VALUE-KEY = '' .
VALUE-TEXT = 'ZB01' .
APPEND VALUE TO LIST .

VALUE-KEY = '' .
VALUE-TEXT = 'ZB02' .
APPEND VALUE TO LIST .

**调用下拉框赋值函数
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
        ID = 'S_LSBOX'
        VALUES = LIST.

或者PBO中的module：

PARAMETERS P_ZSCRF TYPE c AS LISTBOX VISIBLE LENGTH  .

Module drop_down_list output.

  TYPE-POOLS vrm.
  DATA :"name TYPE vrm_id,
        List TYPE vrm_values,
        Value LIKE LINE OF list.
  Name = 'P_ZSCRF'. "屏幕上绑定的下拉框也是这个名字。
  REFRESH list.
  Value-key = ''.
  Value-text = 'M'.
  APPEND value TO list.

  Value-key = ''.
  Value-text = 'D'.
  APPEND value TO list.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = Name
      values = list.

ENDMODULE.                    "drop_down_list OUTPUT