假如我事先创建了一个界面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
