程序代码: *---type pools TYPE-POOLS: slis. *---internal tables DATA: BEGIN OF it_flight OCCURS 0, carrid LIKE sflight-carrid, connid LIKE sflight-connid, fldate LIKE sflight-fldate, seatsmax LIKE sflight-seatsmax, seatsocc LIKE sflight-seatsocc, END OF it_flight, *--internal tables for ALV it_fieldcat TYPE slis_t_fieldcat_alv, wa_fcat LIKE LINE OF it_fieldcat, layout TYPE slis_layout_alv, it_sort type slis_t_sortinfo_alv, wa_sort like line of it_sort. *---start-of-selection . START-OF-SELECTION. CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING i_program_name = sy-repid i_internal_tabname = 'IT_FLIGHT' i_inclname = sy-repid CHANGING ct_fieldcat = it_fieldcat EXCEPTIONS inconsistent_interface = 1 program_error = 2. *----get data SELECT carrid connid fldate seatsmax seatsocc FROM sflight INTO CORRESPONDING FIELDS OF TABLE it_flight UP TO 20 ROWS. . wa_fcat-do_sum = 'X'. MODIFY it_fieldcat FROM wa_fcat TRANSPORTING do_sum WHERE fieldname = 'SEATSOCC' . wa_sort-fieldname = 'CARRID'. wa_sort-group = 'UL'. "显示分割线 wa_sort-up = 'X'. APPEND wa_sort TO it_sort. wa_sort-fieldname = 'CONNID'. wa_sort-subtot = 'X'. wa_sort-up = 'X'. APPEND wa_sort TO it_sort. CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' EXPORTING i_callback_program = sy-repid is_layout = layout it_fieldcat = it_fieldcat it_sort = it_sort TABLES t_outtab = it_flight EXCEPTIONS program_error = 1. 复制代码 程序执行效果: