REPORT Z_BARRY_ALV_HEADER .?
　　TABLES : t001.?
　　TYPE-POOLS: slis.?
　　DATA : w_repid LIKE sy-repid.?
　　TYPES : BEGIN OF ty_comp.?
　　INCLUDE STRUCTURE t001.?
　　TYPES : END OF ty_comp.?
　　DATA: wa_layout TYPE slis_layout_alv.?
　　DATA: it_fieldcat TYPE slis_t_fieldcat_alv,?
　　wa_fieldcat TYPE slis_fieldcat_alv.?
　　DATA : it_comp TYPE TABLE OF ty_comp.?
　　INITIALIZATION.?
　　w_repid = sy-repid.?
　　START-OF-SELECTION.?
　　SELECT * FROM t001 INTO TABLE it_comp.?
　　END-OF-SELECTION.?
　　CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'?
　　EXPORTING?
　　i_program_name = w_repid?
　　i_internal_tabname = 'IT_COMP'?
　　I_STRUCTURE_NAME = 'T001'?
　　i_inclname = w_repid?
　　CHANGING?
　　ct_fieldcat = it_fieldcat[]?
　　EXCEPTIONS?
　　inconsistent_interface = 1?
　　program_error = 2?
　　OTHERS = 3.?
　　CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'?
　　EXPORTING?
　　i_callback_program = w_repid?
　　i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE'

??????i_html_height_top=?20.???????????????????"這句話加上表頭的高度,要不然會自動出現(xiàn)滾動條?

　　is_layout = wa_layout?
　　it_fieldcat = it_fieldcat

　　TABLES?
　　t_outtab = it_comp?
　　EXCEPTIONS?
　　program_error = 1?
　　OTHERS = 2.?
　　*&---------------------------------------------------------------------*?
　　*& Form html_top_of_page?
　　*&---------------------------------------------------------------------*?
　　FORM html_top_of_page USING document TYPE REF TO cl_dd_document.?
　　DATA: text TYPE sdydo_text_element.?
　　text = 'Company Code Data'.?
　　CALL METHOD document->add_text?
　　EXPORTING?
　　text = text?
　　sap_style = 'HEADING'.?
　　CALL METHOD document->new_line.?
　　CALL METHOD document->new_line.?
　　text = 'User Name : '.?
　　CALL METHOD document->add_text?
　　EXPORTING?
　　text = text?
　　sap_emphasis = 'Strong'.?
　　CALL METHOD document->add_gap?
　　EXPORTING?
　　width = 2.?
　　text = sy-uname.?
　　CALL METHOD document->add_text?
　　EXPORTING?
　　text = text?
　　sap_style = 'Key'.?
　　CALL METHOD document->add_gap?
　　EXPORTING?
　　width = 10.?
　　text = 'Date : '.?
　　CALL METHOD document->add_text?
　　EXPORTING?
　　text = text?
　　sap_emphasis = 'Strong'.?
　　CALL METHOD document->add_gap?
　　EXPORTING?
　　width = 2.?
　　text = sy-datum.?
　　CALL METHOD document->add_text?
　　EXPORTING?
　　text = text?
　　sap_style = 'Key'.?
　　CALL METHOD document->add_gap?
　　EXPORTING?
　　width = 10.?
　　text = 'Time : '.?
　　CALL METHOD document->add_text?
　　EXPORTING?
　　text = text?
　　sap_emphasis = 'Strong'.?
　　CALL METHOD document->add_gap?
　　EXPORTING?
　　width = 2.?
　　text = sy-uzeit.?
　　CALL METHOD document->add_text?
　　EXPORTING?
　　text = text?
　　sap_style = 'Key'.?
　　CALL METHOD document->new_line.?
　　ENDFORM. "HTML_TOP_OF_PAGE?
　　?
　　?
　　方法二：?
　　REPORT z_barry_alv_toolbar .?
　　CONSTANTS: gc_grid_title(20) TYPE c VALUE '帶自定義工具欄的ALV GRID模版'.?
　　TYPE-POOLS: slis.?
　　DATA: gd_fieldcat TYPE slis_t_fieldcat_alv.?
　　DATA: sla TYPE slis_layout_alv ,?
　　ivariant LIKE disvariant,?
　　i_repid LIKE sy-repid .?
　　DATA : gt_events TYPE slis_t_event.?
　　DATA: itab_event TYPE slis_t_event,?
　　fld_event TYPE slis_alv_event,?
　　fld_head TYPE slis_listheader,?
　　itab_listhead TYPE slis_t_listheader.?
　　DATA: BEGIN OF itab OCCURS 0,?
　　f(10) TYPE c,?
　　END OF itab.?
　　*PARAMETERS: P_ .?
　　*SELECT-OPTIONS: S_ .?
　　START-OF-SELECTION.?
　　PERFORM getdata.?
　　PERFORM fixdata.?
　　PERFORM outdata.?
　　*&---------------------------------------------------------------------*?
　　*& Form GETDATA?
　　*&---------------------------------------------------------------------*?
　　FORM getdata.?
　　itab-f = 'Test data'.?
　　APPEND itab.?
　　ENDFORM. " GETDATA?
　　*&---------------------------------------------------------------------*?
　　*& Form FIXDATA?
　　*&---------------------------------------------------------------------*?
　　FORM fixdata.?
　　ENDFORM. " FIXDATA?
　　*&---------------------------------------------------------------------*?
　　*& Form outdata?
　　*&---------------------------------------------------------------------*?
　　FORM outdata.?
　　PERFORM fieldcat_init .?
　　sla-colwidth_optimize = 'X'.?
　　sla-zebra = 'X'.?
　　i_repid = sy-repid.?
　　SET TITLEBAR '100' WITH gc_grid_title.?
　　PERFORM frm_alv_header.?
　　CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'?
　　EXPORTING?
　　i_callback_program = i_repid?
　　it_fieldcat = gd_fieldcat[]?
　　i_save = 'A'?
　　is_variant = ivariant?
　　is_layout = sla?
　　i_callback_user_command = 'USER_COMMAND'?
　　i_callback_pf_status_set = 'SET_STATUS'?
　　it_events = gt_events?
　　TABLES?
　　t_outtab = itab[].?
　　ENDFORM. " outdata?
　　*---------------------------------------------------------------------*?
　　* FORM fieldcat_init *?
　　*---------------------------------------------------------------------*?
　　FORM fieldcat_init .?
　　PERFORM frm_catlg_set USING: 'F' 'Test Filed' .?
　　ENDFORM. "fieldcat_init?
　　*---------------------------------------------------------------------*?
　　* FORM frm_catlg_set *?
　　*---------------------------------------------------------------------*?
　　FORM frm_catlg_set USING p_field?
　　p_text.?
　　DATA: ls_fieldcat TYPE slis_fieldcat_alv.?
　　ls_fieldcat-fieldname = p_field.?
　　ls_fieldcat-seltext_l = p_text.?
　　APPEND ls_fieldcat TO gd_fieldcat .?
　　CLEAR ls_fieldcat .?
　　ENDFORM. "frm_catlg_set?
　　*&--------------------------------------------------------------------*?
　　*& Form user_command?
　　*&--------------------------------------------------------------------*?
　　FORM user_command USING r_ucomm LIKE sy-ucomm?
　　rs_selfield TYPE slis_selfield.?
　　READ TABLE itab INDEX rs_selfield-tabindex.?
　　CASE r_ucomm.?
　　WHEN '&IC1'. "雙擊?
　　WHEN 'EXIT'.?
　　LEAVE PROGRAM.?
　　ENDCASE.?
　　ENDFORM. "user_com?
　　*&--------------------------------------------------------------------*?
　　*& Form set_status?
　　*&--------------------------------------------------------------------*?
　　FORM set_status USING rt_extab TYPE slis_t_extab.?
　　CLEAR rt_extab.?
　　REFRESH rt_extab.?
　　* APPEND '&ALL' TO rt_extab .?
　　* APPEND '&SAL' TO rt_extab .?
　　SET PF-STATUS 'STANDARD' EXCLUDING rt_extab . "copy from "SAPLKKBL" STANDARD GUI status?
　　ENDFORM. "set_status?
　　**********************************************?
　　FORM frm_alv_header.?
　　*Title?
　　fld_head-typ = 'H'.?
　　fld_head-info = 'HEIHEI'.?
　　APPEND fld_head TO itab_listhead.?
　　CLEAR fld_head.?
　　*PROGRAM ID:?
　　fld_head-typ = 'S'.?
　　fld_head-key = 'KEY'.?
　　fld_head-info = 'INFO '.?
　　APPEND fld_head TO itab_listhead.?
　　CLEAR fld_head.?
　　CALL FUNCTION 'REUSE_ALV_EVENTS_GET'?
　　EXPORTING?
　　i_list_type = 0?
　　IMPORTING?
　　et_events = gt_events?
　　EXCEPTIONS?
　　list_type_wrong = 1.?
　　IF sy-subrc <>0.?
　　MESSAGE 'ERROR' TYPE 'E' .?
　　ENDIF.?
　　READ TABLE gt_events WITH KEY name = slis_ev_top_of_page?
　　INTO fld_event.?
　　IF sy-subrc = 0.?
　　fld_event-form = 'FRM_TOP_OF_PAGE'.?
　　APPEND fld_event TO gt_events .?
　　ENDIF.?
　　ENDFORM. " FRM_ALV_HEADER?
　　*&--------------------------------------------------------------------*?
　　*& Form FRM_TOP_OF_PAGE?
　　*&--------------------------------------------------------------------*?
　　* text?
　　*---------------------------------------------------------------------*?
　　FORM frm_top_of_page.?
　　CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'?
　　EXPORTING?
　　it_list_commentary = itab_listhead?
　　i_logo = 'TEST_BTZ' "SE78?
　　i_end_of_list_grid = '.?

　　ENDFORM. " FRM_TOP_OF_PAGE?

與50位技術(shù)專家面對面20年技術(shù)見證，附贈技術(shù)全景圖

總結(jié)

以上是生活随笔為你收集整理的ALV 简单实现HTML抬头的方法 （介绍 二）的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。