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.