选择屏幕实现下拉框

效果

实现代码

REPORT zyktest01.
TYPE-POOLS vrm.

PARAMETERS: pv_ssf(10) AS LISTBOX VISIBLE LENGTH 5.

DATA: name    TYPE vrm_id,       "对应选择屏幕parameters pv_ssf
      gt_list TYPE vrm_values,
      gs_list LIKE LINE OF gt_list.

AT SELECTION-SCREEN OUTPUT.
  name = 'PV_SSF'.
  gs_list-key = 'SSF01'.
  gs_list-text = '选择1'.
  APPEND gs_list TO gt_list.

  gs_list-key = 'SSF02'.
  gs_list-text = '选择2'.
  APPEND gs_list TO gt_list.

  gs_list-key = 'SSF03'.
  gs_list-text = '选择3'.
  APPEND gs_list TO gt_list.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = name			"对应选择屏幕parameters 
      values = gt_list.		"下拉列表

START-OF-SELECTION.