SAP ABAP下拉筛选框实现

1.屏幕定义

PARAMETERS: p_1 AS LISTBOX VISIBLE LENGTH 10.

2.初始化下拉框

INITIALIZATION.
   PERFORM frm_sc_init.

 FORM frm_sc_init.
   DATA:  list TYPE vrm_values.        "定义list内表    要在TOP中定义，我写在了这里
   REFRESH:list[].
   "初始化下拉列表值
   list[] = VALUE #( ( key = '1' text = '审核')  
                     ( key = '2' text = '采购')
                     ( key = '' text = '')
   ).

**   调用下拉框赋值函数                 "当选中下拉框内容时，把选中的内容的key赋值给PARAMETERS:p_1.
   CALL FUNCTION 'VRM_SET_VALUES'
     EXPORTING
       id =    'p_1'
       values = list[].
 ENDFORM.

3.筛选时ALV展示数据处理

if p_1 = ''.
elseif p_1 = '1'.
continue.                             "如果不符合筛选条件，则此条数据不放入内表
elseif P_1 = '2'
continue.
endif.