ALV demo:cl_salv_table&nbsp…

效果图：

​​

定义的status

​​

​​

code：

REPORT zlm_alv_002 .

DATA : gt_spfli  TYPE  TABLE  OF spfli .

DATA : ls_spfli  TYPE spfli .

DATA : gr_table  TYPE  REF  TO cl_salv_table .

DATA : gr_functions  TYPE  REF  TO cl_salv_functions_list .

DATA : gr_events  TYPE  REF  TO cl_salv_events_table .

DATA : gr_selections  TYPE  REF  TO cl_salv_selections .

CLASS lcl_handle_events  DEFINITION .

  PUBLIC  SECTION .

      METHODS :

          on_user_command  FOR  EVENT added_function  OF cl_salv_events  IMPORTING e_salv_function ,

          on_double_click  FOR  EVENT double_click  OF cl_salv_events_table  IMPORTING row  column .

ENDCLASS .  "lcl_handle_events DEFINITION

DATA : event_handler  TYPE  REF  TO lcl_handle_events .

START-OF-SELECTION .

  SELECT *  INTO CORRESPONDING  FIELDS  OF  TABLE gt_spfli  FROM spfli  UP  TO  100  ROWS .

  CALL  METHOD cl_salv_table =>factory  IMPORTING r_salv_table  = gr_table  CHANGING t_table  = gt_spfli .

  gr_table ->set_screen_status ( pfstatus  =  'SALV_TABLE_STANDARD'

                                                report  = sy -repid

                                                set_functions  = gr_table ->c_functions_all  ) .

  gr_events  = gr_table ->get_event (  ) .

  CREATE OBJECT  event_handler .

  SET  HANDLER event_handler ->on_user_command  FOR gr_events .

  SET  HANDLER event_handler ->on_double_click  FOR gr_events .

* Set up selections.

  gr_selections  = gr_table ->get_selections (  ) .

  gr_selections ->set_selection_mode (  1  ) .  "Single

* Display

  gr_table ->display (  ) .

CLASS lcl_handle_events  IMPLEMENTATION .

  METHOD on_user_command .

      "Get the selection rows

      DATA : lr_selections  TYPE  REF  TO cl_salv_selections .

      DATA : lt_rows  TYPE salv_t_row .

      DATA : ls_rows  TYPE  i .

      DATA :  message  TYPE string .

      CASE e_salv_function .

          WHEN  'MYFUNCTION' .

              lr_selections  = gr_table ->get_selections (  ) .

              lt_rows  = lr_selections ->get_selected_rows (  ) .

              READ  TABLE lt_rows  INTO ls_rows  INDEX  1 .

              READ  TABLE gt_spfli  INTO ls_spfli  INDEX ls_rows .

              CONCATENATE ls_spfli -carrid  ls_spfli -connid  ls_spfli -cityfrom  ls_spfli -cityto  INTO  message  SEPARATED  BY space .

              MESSAGE i001 ( 00 )  WITH  'You pushed the button!'  message .

      ENDCASE .

  ENDMETHOD .  "on_user_command

  METHOD on_double_click .

      DATA :  message  TYPE string .

      DATA : row_c ( 4 )  TYPE  c .

      row_c  = row .

      CONCATENATE  'Row' row_c  'Column' column  INTO  message  SEPARATED  BY space .

      MESSAGE i001 ( 00 )  WITH  'You double-clicked on '  message .

  ENDMETHOD .

ENDCLASS .