ABAP实现ALV表头的DEMO：
运行效果：
代码：
***********************************************************************
*TEST
***********************************************************************
REPORT ZTESTR1_XFL NO STANDARD PAGE HEADING
MESSAGE-ID LINE-SIZE LINE-COUNT .
************************************************************************
* Tables Definitions
************************************************************************
*TABLES:xxxxx.************************************************************************
* Data Definitions
************************************************************************
DATA:BEGIN OF GT_ITAB OCCURS ,
NAME() TYPE C,
AGE TYPE I,
CLASS() TYPE C,
END OF GT_ITAB.TYPE-POOLS : SLIS.
DATA:GT_EVENT TYPE SLIS_T_EVENT,
GW_EVENT LIKE LINE OF GT_EVENT.
DATA:LISTHEADER TYPE SLIS_T_LISTHEADER,
WA_LISTHEADER LIKE LINE OF LISTHEADER.
DATA: GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.************************************************************************
* Selection Screen
************************************************************************************************************************************************
* Initialization
************************************************************************
INITIALIZATION.************************************************************************
* At Selection Screen
************************************************************************
AT SELECTION-SCREEN.************************************************************************
* At Selection Screen Output
************************************************************************
AT SELECTION-SCREEN OUTPUT.************************************************************************
* Report Format
************************************************************************
TOP-OF-PAGE.END-OF-PAGE.
************************************************************************
* Main Process
************************************************************************
START-OF-SELECTION.
PERFORM GET_DATA.
PERFORM BUILD_EVENTS.
PERFORM FRM_TOP_OF_PAGE.
PERFORM CATA_LOG.
PERFORM ALV_SHOW.END-OF-SELECTION.*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM GET_DATA .
GT_ITAB-NAME = '张三'.
GT_ITAB-AGE = .
GT_ITAB-CLASS = 'Class1'.
APPEND GT_ITAB.
CLEAR GT_ITAB. GT_ITAB-NAME = '李四'.
GT_ITAB-AGE = .
GT_ITAB-CLASS = 'Class2'.
APPEND GT_ITAB.
CLEAR GT_ITAB.ENDFORM. " GET_DATAFORM BUILD_EVENTS.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE =
IMPORTING
ET_EVENTS = GT_EVENT
EXCEPTIONS
LIST_TYPE_WRONG =
OTHERS =
.
IF SY-SUBRC <> .
* Implement suitable error handling here
ENDIF. READ TABLE GT_EVENT WITH KEY NAME = 'TOP_OF_PAGE' INTO GW_EVENT.
IF SY-SUBRC = .
MOVE 'FRM_TOP_OF_PAGE' TO GW_EVENT-FORM.
MODIFY GT_EVENT FROM GW_EVENT INDEX SY-TABIX.
ENDIF.ENDFORM.FORM FRM_TOP_OF_PAGE.
DATA: H_DATUM() TYPE C,
H_UZEIT() TYPE C.
CLEAR:LISTHEADER,WA_LISTHEADER.
*标题
WA_LISTHEADER-TYP = 'H'.
WA_LISTHEADER-KEY = ''.
WA_LISTHEADER-INFO = 'XXX学校'.
APPEND WA_LISTHEADER TO LISTHEADER.
CLEAR:WA_LISTHEADER.*中标题
WA_LISTHEADER-TYP = 'S'.
WA_LISTHEADER-KEY = ''.
WA_LISTHEADER-INFO = '学生名单'.
APPEND WA_LISTHEADER TO LISTHEADER.
CLEAR:WA_LISTHEADER. WRITE SY-DATUM TO H_DATUM DD/MM/YYYY.
WRITE SY-UZEIT TO H_UZEIT USING EDIT MASK '__:__:__'.
*小标题
WA_LISTHEADER-TYP = 'A'.
WA_LISTHEADER-KEY = ''.
CONCATENATE 'Today:' H_DATUM 'Time:' H_UZEIT
INTO WA_LISTHEADER-INFO.
APPEND WA_LISTHEADER TO LISTHEADER.
CLEAR:WA_LISTHEADER. CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = LISTHEADER
* I_LOGO = ''
* I_END_OF_LIST_GRID =
* I_ALV_FORM = .
ENDFORM.*&---------------------------------------------------------------------*
*& Form CATA_LOG
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM CATA_LOG.
DEFINE FILEDCAT.
GT_FIELDCAT-FIELDNAME = &.
GT_FIELDCAT-SELTEXT_L = &.
APPEND GT_FIELDCAT.
END-OF-DEFINITION.
FILEDCAT 'NAME' '姓名'.
FILEDCAT 'AGE' '年龄'.
FILEDCAT 'CLASS' '班级'.
ENDFORM. " CATA_LOG*&---------------------------------------------------------------------*
*& Form ALV_SHOW
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM ALV_SHOW .GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
* 显示ALV的函数
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IS_LAYOUT = GS_LAYOUT
IT_FIELDCAT = GT_FIELDCAT[]
IT_EVENTS = GT_EVENT
I_SAVE = 'A' "保存全局,特定變式
TABLES
T_OUTTAB = gt_itab
EXCEPTIONS
PROGRAM_ERROR =
OTHERS = .ENDFORM. " ALV_SHOW
