ABAP--通过自定义类使用ALV(相应事件)的代码

最新推荐文章于 2024-02-29 06:49:06 发布

最新推荐文章于 2024-02-29 06:49:06 发布 · 160 阅读

本文介绍如何在 ABAP 中使用 ALV Grid 控件实现数据展示及交互功能，包括数据选择、表格初始化、列设置及事件处理等关键步骤。

Class Definition

*----------------------------------------------------------------------*
* CLASS lcl_alv DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_alv DEFINITION.
PUBLIC SECTION.

METHODS select_alv IMPORTING amount TYPE i.

METHODS display_alv.

METHODS on_link_click
FOR EVENT link_click OF cl_salv_events_table
IMPORTING row column.

PROTECTED SECTION.

DATA t_alv TYPE STANDARD TABLE OF alv_tab.

DATA: o_table TYPE REF TO cl_salv_table,
o_columns TYPE REF TO cl_salv_columns_table,
o_column TYPE REF TO cl_salv_column_table,
o_events TYPE REF TO cl_salv_events_table.

ENDCLASS. "lcl_alv DEFINITION

Class Implementation

*----------------------------------------------------------------------*
* CLASS lcl_alv IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_alv IMPLEMENTATION.

METHOD select_alv.

SELECT *
FROM alv_tab
INTO TABLE t_alv
UP TO amount ROWS.

ENDMETHOD. "SELECT_ALV

METHOD display_alv.

TRY.
cl_salv_table=>factory(
IMPORTING
r_salv_table = o_table
CHANGING
t_table = t_alv ).
CATCH cx_salv_msg. "#EC NO_HANDLER
ENDTRY.

o_columns = o_table->get_columns( ).
o_columns->set_optimize( abap_true ).

TRY.
o_column ?= o_columns->get_column( 'CARRID' ).
o_column->set_cell_type( if_salv_c_cell_type=>hotspot ).
CATCH cx_salv_not_found.
ENDTRY.

o_events = o_table->get_event( ).

SET HANDLER me->on_link_click FOR o_events.

o_table->display( ).

ENDMETHOD. "display_alv

METHOD on_link_click.