处理ALV双击事件

处理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.