ABAP-选择屏幕下拉框函数 

 1 REPORT y4_b4_test7.
 2 SELECTION-SCREEN FUNCTION KEY 1.
 3 PARAMETERS:p_tabnam TYPE dd02l-tabname AS LISTBOX VISIBLE LENGTH  35.
 4 
 5 AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_tabnam.
 6   "下拉菜单函数
 7   PERFORM frm_set_vrm_list.
 8 
 9 FORM frm_set_vrm_list.
10   DATA:lt_list TYPE vrm_values.
11 
12   SELECT ebeln AS key bukrs AS text INTO TABLE lt_list FROM ekko.
13 
14   "p_tabnam的值是KEY值
15   CALL FUNCTION 'VRM_SET_VALUES'
16     EXPORTING
17       id     = 'P_TABNAM'
18       values = lt_list.
19 
20 ENDFORM.
posted @ 2022-06-20 17:01  TigerMan  阅读(229)  评论(0)  编辑  收藏  举报