第一步:先将屏幕元素属性设置为Listbox。
第二步:在PBO部分创建一个MOUDLE用来赋值下拉框。代码如下
DATA :name TYPE vrm_id,
list TYPE vrm_values.
DATA:value LIKE LINE OF list.
name = 'GS_TAB_02-ZDBJG'. "下拉框的屏幕名称"
REFRESH list.
value-key = '01'.
value-text = '优化'.
APPEND value TO list.
value-key = '02'.
value-text = '维持'.
APPEND value TO list.
value-key = '03'.
value-text = '降低'.
APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list.