ABAP选择屏幕下拉框

一、直接引用标准值

第一种是最基础的，直接依靠表字段的搜索帮助等系统自带的搜索帮助，只需要在屏幕后面加上【AS LISTBOX】关键字，就可以了，同时呢【AS LISTBOX】需要同【VISIBLE LENGTH】一起使用。

PARAMETERS : p_bwart LIKE resb-bwart VISIBLE LENGTH 20  AS LISTBOX .

二、自定义下拉框的值

除上述的情况，还存在没有系统搜索帮助的字段，或者想要自定义下拉框种的内容，需要在保持上述所说的基础上，在【AT SELECTION-SCREEN OUTPUT】后面，添加一段代码。

PARAMETERS : p_bwart LIKE resb-bwart VISIBLE LENGTH 20  AS LISTBOX ."USER-COMMAND p1 ."OBLIGATORY." DEFAULT '261'.

AT SELECTION-SCREEN OUTPUT.

  DATA: lt_list TYPE vrm_values,
        ls_list LIKE LINE OF lt_list.
  REFRESH: lt_list.


  ls_list-key = '261' .
  ls_list-text = '计划内领料单'.
  APPEND ls_list TO lt_list.
  CLEAR ls_list.
  ls_list-key = 'XXX' .
  ls_list-text = '计划外领料单'.
  APPEND ls_list TO lt_list.
  CLEAR ls_list.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'P_BWART'
      values = lt_list.