有时候,我们需要给选择屏幕给出几个值,让用户选择,例如:
这个时候我们就需要自定义下拉框
使用函数“VRM_SET_VALUES”来显示
详细代码如下:
REPORT zcaogao6.
TYPE-POOLS:slis.
PARAMETERS: p_qu LIKE faglflext-rtcur AS LISTBOX VISIBLE LENGTH 15 OBLIGATORY.
AT SELECTION-SCREEN OUTPUT.
PERFORM fill_data_to_auart.
*&---------------------------------------------------------------------*
*& Form FILL_DATA_TO_AUART
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM fill_data_to_auart .
TYPE-POOLS: vrm . "存放combobox内容的type pool
DATA: name TYPE vrm_id, " list box的名称
list TYPE vrm_values, " list box的值
value LIKE LINE OF list . " list box的结构
REFRESH list .
DEFINE fill_list.
value-key = &1. "这个就是变量P_LIST的值
value-text = &2. "这个是text
append value to list.
END-OF-DEFINITION.
fill_list '1' '第1季度'.
fill_list '2' '第2季度'.
fill_list '3' '第3季度'.
fill_list '4' '第4季度'.
fill_list '5' '上半年'."
fill_list '6' '下半年'.
"---〉调用函数显示listbox里面的值
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'P_QU' " PARAMETERS's Name
values = list.
ENDFORM. " FILL_DATA_TO_AUART