处理ALV双击事件

REPORT zliyutest NO STANDARD PAGE HEADING. DATA:ok_code TYPE sy-ucomm,       save_ok TYPE sy-ucomm. DATA wa_spfli TYPE TABLE OF spfli. SELECT * INTO TABLE wa_spfli FROM spfli.  DATA: wa_container TYPE scrfname VALUE 'ALVDATE',        alv_grid TYPE REF TO cl_gui_alv_grid,        wa_custom_container TYPE REF TO cl_gui_custom_container.   CLASS lcl_event_receiver DEFINITION DEFERRED.  DATA event_receiver TYPE REF TO lcl_event_receiver. CALL SCREEN 120. CLASS lcl_event_receiver DEFINITION.   PUBLIC SECTION.   METHODS:   handle_double_click   FOR EVENT double_click OF cl_gui_alv_grid   IMPORTING e_row e_column.   ENDCLASS.   CLASS lcl_event_receiver IMPLEMENTATION.     METHOD handle_double_click.       DATA:li_spfli LIKE LINE OF wa_spfli.       READ TABLE wa_spfli INDEX e_row-index INTO li_spfli.       DATA:s1(100) TYPE c.       CONCATENATE '行:' e_row-index '列名:' e_column-fieldname INTO s1.       CONCATENATE s1 'connid:' li_spfli-connid INTO s1.       CONCATENATE s1 'carrid:' li_spfli-carrid INTO s1.       MESSAGE s208(00) WITH s1.       ENDMETHOD.       ENDCLASS.   MODULE status_0120 OUTPUT.     SET PF-STATUS 'STATUS1'.     IF wa_custom_container IS INITIAL.       CREATE OBJECT wa_custom_container       EXPORTING container_name = wa_container.       CREATE OBJECT alv_grid       EXPORTING i_parent = wa_custom_container.         CALL METHOD alv_grid->set_table_for_first_display         EXPORTING        i_structure_name = 'SPFLI'        CHANGING          it_outtab = wa_spfli.         CREATE OBJECT event_receiver.         SET HANDLER event_receiver->handle_double_click FOR alv_grid.         ENDIF.         ENDMODULE. MODULE user_command_0120 INPUT.   save_ok = ok_code.   CLEAR ok_code.   CASE save_ok.     WHEN 'EXIT'.       LEAVE PROGRAM.       ENDCASE.       ENDMODULE.