OO实现ALV TABLE 四：ALV的显示样式
通过类CL_SALV_DISPLAY_SETTINGS我们可以设置ALV的显示样式，主要包括ALV表头名称，列表颜色间隔显示，水平线是否显示，竖线是否显示等。
1.首先我们要取得类CL_SALV_DISPLAY_SETTINGS的实例，根据类CL_SALV_TABLE的方法get_display_settings可以取得显示样式的实例。
lr_display = gr_table->get_display_settings( ).
2然后通过类CL_SALV_DISPLAY_SETTINGS的方法设置显示属性。
lr_display = gr_table->get_display_settings( ).
lr_display->set_striped_pattern( 'X' ). "设置颜色间隔显示
lr_display->set_list_header( 'Xin''s ALV' ). "设置ALV的抬头
lr_display->set_horizontal_lines( '' ). "设置水平线是否显示
lr_display->set_vertical_lines( '' ). "设置垂直线是否显示
下面是效果图
下面是程序的所有代码:
REPORT y_xin_002.
*变量定义
TYPES ty_spfli TYPE spfli OCCURS 0.
DATA: gr_table TYPE REF TO cl_salv_table.
*----------------------------------------------------------------------*
* CLASS lcl_alv DEFINITION
*----------------------------------------------------------------------*
* ALV操作类（定义）
*----------------------------------------------------------------------*
CLASS lcl_alv DEFINITION.
PUBLIC SECTION.
METHODS: getdata "取得要显示的数据
RETURNING value(lt_tab) TYPE ty_spfli,
alv_full "全屏Grid列表处理方法
IMPORTING value(lt_tab) TYPE ty_spfli,
main. "主方法
ENDCLASS. "lcl_alv DEFINITION
*----------------------------------------------------------------------*
* CLASS lcl_alv IMPLEMENTATION
*----------------------------------------------------------------------*
* ALV操作类（实现）
*----------------------------------------------------------------------*
CLASS lcl_alv IMPLEMENTATION.
*取得要显示的数据
METHOD getdata.
SELECT * INTO TABLE lt_tab FROM spfli.
ENDMETHOD. "getdata
*输出全屏网格列表的方法
METHOD alv_full.
DATA: lr_functions TYPE REF TO cl_salv_functions,
lr_display TYPE REF TO cl_salv_display_settings.
data boolean type c.
"创建实例
TRY.
cl_salv_table=>factory(
IMPORTING
r_salv_table = gr_table
CHANGING
t_table = lt_tab
).
CATCH cx_salv_msg.
ENDTRY.
"显示ALV的标准功能
lr_functions = gr_table->get_functions( ).
lr_functions->set_all( 'X' ).
"设置ALV的显示样式
lr_display = gr_table->get_display_settings( ).
lr_display->set_striped_pattern( 'X' )."设置颜色间隔显示
lr_display->set_list_header( 'Xin''s ALV' ). "设置ALV的抬头
lr_display->set_horizontal_lines( '' ). "设置水平线是否显示
lr_display->set_vertical_lines( '' ). "设置垂直线是否显示
"显示列表
gr_table->display( ).
ENDMETHOD. "alv_full
*主方法，整合数据
METHOD main.
DATA: lt_tab TYPE TABLE OF spfli.
"取得要显示的数据
lt_tab = me->getdata( ).
me->alv_full( lt_tab ).
ENDMETHOD. "main
ENDCLASS. "lcl_alv IMPLEMENTATION
*报表执行
START-OF-SELECTION.
DATA lr_alv TYPE REF TO lcl_alv.
CREATE OBJECT lr_alv.
lr_alv->main( ).