- SAVL要想像Function ALV或OO ALV那样设置Fieldcat,也是有方法的。
- 通过取得全体列的类引用 CL_SALV_COLUMNS来进行修改
METHOD set_columns.* 取得全部列的对象DATA(lo_cols) = co_alv->get_columns( ).* 设置自动优化列宽度lo_cols->set_optimize( 'X' ).TRY."修改列VBELN的标签名字和输出长度lo_cols->get_column( 'VBELN' )->set_long_text( 'Sale Order' ). "长描述lo_cols->get_column( 'VBELN' )->set_medium_text( 'Sale Order' )."中描述lo_cols->get_column( 'VBELN' )->set_short_text( 'Sale Order' ). "短描述lo_cols->get_column( 'VBELN' )->set_output_length( 15 )."隐藏列lo_cols->get_column( 'ERNAM' )->set_visible( value = if_salv_c_bool_sap=>false )....CATCH cx_salv_not_found.ENDTRY.ENDMETHOD. "SET_COLUMNS
-
显示效果如下图所示:
-
完整代码
CLASS lcl_model DEFINITION.PUBLIC SECTION.TYPES:BEGIN OF TY_dATA,vbeln TYPE vbak-vbeln,erdat TYPE erdat,erzet TYPE erzet,ernam TYPE ernam,auart TYPE auart.TYPES:END OF ty_data.DATA mt_data TYPE TABLE OF ty_data.DATA mo_salv TYPE REF TO cl_salv_table."获取数据的方法METHODS get_data."展示SALV的方法METHODS alv_show.PRIVATE SECTION.METHODS:set_status CHANGING co_alv TYPE REF TO cl_salv_table.METHODS:set_columns CHANGING co_alv TYPE REF TO cl_salv_table.ENDCLASS.CLASS lcl_model IMPLEMENTATION.METHOD get_data.SELECT vbeln erdat erzet ernam auartINTO TABLE mt_dataFROM vbakUP TO 20 ROWS.ENDMETHOD.METHOD alv_show.DATA: lx_msg TYPE REF TO cx_salv_msg.TRY.cl_salv_table=>factory(IMPORTINGr_salv_table = mo_salvCHANGINGt_table = mt_data ).CATCH cx_salv_msg INTO lx_msg.ENDTRY.me->set_status( CHANGING co_alv = mo_salv ).me->set_columns( CHANGING co_alv = mo_salv ).mo_salv->display( ).ENDMETHOD.METHOD set_status.DATA(lo_functions) = co_alv->get_functions( )."cl_salv_functions_list类型的实例对象的添加状态方法lo_functions->set_all( abap_true )."lo_functions->set_default( abap_true ).ENDMETHOD.METHOD set_columns.* 取得全部列的对象DATA(lo_cols) = co_alv->get_columns( ).* 设置自动优化列宽度lo_cols->set_optimize( 'X' ).* 修改列VBELN的标签名字和输出长度TRY.lo_cols->get_column( 'VBELN' )->set_long_text( 'Sale Order' ). "长描述lo_cols->get_column( 'VBELN' )->set_medium_text( 'Sale Order' )."中描述lo_cols->get_column( 'VBELN' )->set_short_text( 'Sale Order' ). "短描述lo_cols->get_column( 'VBELN' )->set_output_length( 15 ).CATCH cx_salv_not_found.ENDTRY.ENDMETHOD. "SET_COLUMNSENDCLASS.START-OF-SELECTION.DATA(lo_model) = NEW lcl_model( ).lo_model->get_data( ).lo_model->alv_show( ).