Classical?ALV?Demo:?Disable?DELETE?key?on?Keyboard_SAP刘梦_新浪博客

一个Function的alv demo，使用键盘上的delete直接删除表数据，可以多行删除。

效果：

er_data_changed ->mt_deleted_rows   里面的数据确定，里面有行号

此时 alv内表内数据没删除，直接根据行号即可得到删除的数据，如果有后续操作可以记录下来

code：

*&---------------------------------------------------------------------*
*& Report  ZLM_ALV_013
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zlm_alv_014 .

TYPE-POOLS : slis .
* Data to be displayed
DATA : gt_sflight      TYPE  TABLE  OF sflight .
DATA : gt_sflight1  TYPE  TABLE  OF sflight ,
      gs_layout    TYPE slis_layout_alv ,
      l_deleted    TYPE flag .
DATA : gv_delte_number  TYPE int4 .
DATA : gs_delete   TYPE sflight .
DATA : o_grid  TYPE  REF  TO cl_gui_alv_grid .
*
*----------------------------------------------------------------------*
* Event Handler class for ALV Events
*----------------------------------------------------------------------*
CLASS lcl_event_handle  DEFINITION .
   PUBLIC  SECTION .
     METHODS handle_data_changed
                   FOR  EVENT data_changed  OF cl_gui_alv_grid
       IMPORTING er_data_changed .
*
     METHODS :
      handle_changed_finished  FOR  EVENT data_changed_finished
                     OF cl_gui_alv_grid
         IMPORTING e_modified
                    et_good_cells .
*
ENDCLASS .                     "lcl_event_handle DEFINITION
*
DATA : o_event_h  TYPE  REF  TO lcl_event_handle .
*
START-OF-SELECTION .
*---------------------------------------------------------------------*
* Selection
   SELECT *  FROM sflight  INTO CORRESPONDING  FIELDS  OF  TABLE gt_sflight  UP  TO  10  ROWS .
*
* Edit
  gs_layout - edit  =  'X' .
*
* Event for Top-of-page
   DATA : lt_events  TYPE slis_t_event .
   DATA : la_events  LIKE  LINE  OF lt_events .
*
  la_events -name  =  'TOP_OF_PAGE' .
  la_events - form  =  'TOP_OF_PAGE' .
   APPEND la_events  TO lt_events .
*
* Call ABAP List Viewer (ALV)
   CALL  FUNCTION  'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
      i_callback_program       = sy -repid
      i_callback_user_command  =  'USER_COMMAND'
      i_structure_name         =  'SFLIGHT'
      is_layout                = gs_layout
      it_events                = lt_events
     TABLES
      t_outtab