ABAP下拉菜单（ListBox）

假如我事先创建了一个界面0100，里面放了一个带有下拉框的Input/Output Field,

Listbox with key.png 无内容的下拉框.png

不过此时下拉框只有样式没有内容。
接下来就是在PBO中给下拉框添加内容。

MODULE DEPT_DROPDOWN OUTPUT.
  DATA GT_DEPT TYPE VRM_VALUES WITH HEADER LINE.
  CLEAR GT_DEPT.
  GT_DEPT-KEY = 'A'.
  GT_DEPT-TEXT = '人事部'.
  APPEND GT_DEPT.
  GT_DEPT-KEY = 'B'.
  GT_DEPT-TEXT = '财务部'.
  APPEND GT_DEPT.
  GT_DEPT-KEY = 'C'.
  GT_DEPT-TEXT = '后勤部'.
  APPEND GT_DEPT.
  
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID                    = 'GV_DEPT'
      VALUES                = GT_DEPT[]
    EXCEPTIONS
      ID_ILLEGAL_NAME       = 1
      OTHERS                = 2
            .
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.
ENDMODULE.  

这里借助一个函数，实现效果如下:

image.png