在ooalv中，处理alv双击事件实例

双击时，注意状态条显示的信息：行号、选择列名、航班表中的connid和carrid的只能，执行效果如下。

注：该实例是在屏幕上建立custom control控件，实现oolav输出报表 的扩展，如阅读有困难可先参考它。

主程序：

1. REPORT  ZDEMON_005.
   
2. DATA OK_CODE TYPE SY-UCOMM. " SY-UCOMM：Function code that PAI triggered
   
3. DATA IT_SPFLI TYPE TABLE OF SPFLI.
   
4. DATA:S_CONTAINER TYPE SCRFNAME VALUE 'ALVDATA',  " SCRFNAME: Name of a Screen Element  只能为该类型
   
5.       ALV_GRID TYPE REF TO CL_GUI_ALV_GRID, "参考CL_GUI_ALV_GRID类，定义对象ALV_GRID
   
6.       LO_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
   
7. CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED."DEFERRED大概就是 “预定义”类，先告诉你会有这么一个类，可被别的地方用，之后它还是要定义的
   
8. DATA EVENT_RECEIVER TYPE REF TO  LCL_EVENT_RECEIVER. "定义事件
   
9. 
   
10. SELECT *
    
11.   INTO CORRESPONDING FIELDS OF TABLE IT_SPFLI
    
12.   FROM SPFLI.
    
13. 
    
14. CALL SCREEN 100.
    
15. 
    
16. *定义事件的属性和方法
    
17. CLASS LCL_EVENT_RECEIVER DEFINITION.
    
18.   PUBLIC SECTION.
    
19.     METHODS:
    
20. *双击方法
    
21.     HANDLE_DOUBLE_CLICK
    
22.       FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
    
23.         IMPORTING E_ROW E_COLUMN.
    
24. ENDCLASS.
    
25. *双击方法实现
    
26. CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
    
27.   METHOD HANDLE_DOUBLE_CLICK.
    
28.     DATA:LI_SPFLI LIKE LINE OF IT_SPFLI.
    
29.     READ TABLE IT_SPFLI INDEX E_ROW-INDEX INTO LI_SPFLI.
    
30. *将行列等信息合并到字符串
    
31.     DATA:S1(100).
    
32.     CONCATENATE '行:' E_ROW-INDEX '列名:' E_COLUMN-FIELDNAME INTO S1.
    
33.     CONCATENATE S1 'CONNID:' LI_SPFLI-CONNID INTO S1.
    
34.     CONCATENATE S1 'CARRID:' LI_SPFLI-CARRID INTO S1.
    
35. *在状态条显示单击的行与列信息
    
36.     MESSAGE S208(00) WITH S1. "系统定义的消息类
    
37.   ENDMETHOD.
    
38. ENDCLASS.
    
39. MODULE STATUS_0100 OUTPUT.
    
40.   SET PF-STATUS 'STATUS1'.
    
41.   SET TITLEBAR 'ALV TITLEBAR'.
    
42. ENDMODULE.                 " STATUS_0100  OUTPUT
    
43. 
    
44. MODULE USER_COMMAND_0100 INPUT.
    
45. CASE OK_CODE.
    
46.   WHEN 'CANCEL'.
    
47.     LEAVE PROGRAM.
    
48.   WHEN 'BACK' OR 'EXIT'.
    
49.     LEAVE TO SCREEN 0.
    
50. ENDCASE.
    
51. ENDMODULE.                 " USER_COMMAND_0100  INPUT
    
52. 
    
53. MODULE CLEAR_OK_CODE OUTPUT.
    
54.   CLEAR OK_CODE.
    
55. ENDMODULE.                 " CLEAR_OK_CODE  OUTPUT
    
56. 
    
57. MODULE DISPLAY_OOALV OUTPUT.
    
58.   IF LO_CUSTOM_CONTAINER IS INITIAL. "如果LO_CUSTOM_CONTAINE RDialog容器对象不存在，实例化该对象
    
59.     CREATE OBJECT LO_CUSTOM_CONTAINER
    
60.            EXPORTING CONTAINER_NAME = S_CONTAINER.
    
61.     CREATE OBJECT ALV_GRID "实例化alv对象
    
62.            EXPORTING I_PARENT = LO_CUSTOM_CONTAINER.
    
63.     CALL METHOD ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY "调用alv对象的方法显示报表
    
64.          EXPORTING I_STRUCTURE_NAME = 'SPFLI'
    
65.            CHANGING IT_OUTTAB = IT_SPFLI.
    
66. *alv对象分配双击事件
    
67.     CREATE OBJECT EVENT_RECEIVER.
    
68.     SET HANDLER EVENT_RECEIVER->HANDLE_DOUBLE_CLICK FOR ALV_GRID.
    
69.   ENDIF.
    
70. ENDMODULE.                 " DISPLAY_OOALV  OUTPUT

复制代码