酱油般的发个技术贴，关于面向对象ALV的

SPAN {font-family: "Courier New";font-size: 10pt;color: #000000;background: #FFFFFF;}.L0S31 {font-style: italic;color: #808080;}.L0S32 {color: #3399FF;}.L0S33 {color: #4DA619;}.L0S52 {color: #0000FF;}.L0S55 {color: #800080;}.L0S70 {color: #808080;}*&---------------------------------------------------------------------*
*& Report ZZZX
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZZZX.
TYPES:BEGIN OF LINE,
CHK TYPE C,
MESSAGE(10) TYPE C,
END OF LINE.
DATA ITAB TYPE LINE OCCURS 0.
DATA WA_ITAB TYPE LINE.
DATA OK_CODE LIKE SY-UCOMM.
DATA GT_FIELDCAT_TE TYPE LVC_T_FCAT.
WA_ITAB-MESSAGE = 'AAAAAAAAAA'.
APPEND WA_ITAB TO ITAB.
WA_ITAB-MESSAGE = 'BBBBBBBBB'.
APPEND WA_ITAB TO ITAB.
WA_ITAB-MESSAGE = 'CCCCCCCCC'.
APPEND WA_ITAB TO ITAB.
DATA:ALV_GRID TYPE REF TO CL_GUI_ALV_GRID,
WA_CONTAINER TYPE SCRFNAME VALUE 'ALV',
WA_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'TEST'.
* SET TITLEBAR 'xxx'.
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.
PERFORM PREPARE_FIELD_CATALOG1 CHANGING GT_FIELDCAT_TE.
CALL METHOD ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY
CHANGING
IT_OUTTAB = ITAB
IT_FIELDCATALOG = GT_FIELDCAT_TE.
ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Form PREPARE_FIELD_CATALOG1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_GT_FIELDCAT_TE text
* <--P_ENDMODULE text
*----------------------------------------------------------------------*
FORM PREPARE_FIELD_CATALOG1 CHANGING P_GT_FIELDCAT_TE TYPE LVC_T_FCAT.
DATA IS_FCAT TYPE LVC_S_FCAT.
IS_FCAT-FIELDNAME = 'CHK'.
IS_FCAT-COL_POS = 1.
IS_FCAT-COLTEXT = '选择'.
IS_FCAT-SELTEXT = '选择'.
IS_FCAT-CHECKBOX = 'X'.
IS_FCAT-EDIT = 'X'.
APPEND IS_FCAT TO GT_FIELDCAT_TE.
CLEAR IS_FCAT.
IS_FCAT-FIELDNAME = 'MESSAGE'.
IS_FCAT-COL_POS = 2.
IS_FCAT-COLTEXT = '消息'.
IS_FCAT-SELTEXT = '消息'.
APPEND IS_FCAT TO GT_FIELDCAT_TE.
CLEAR IS_FCAT.
ENDFORM. " PREPARE_FIELD_CATALOG1
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
CASE OK_CODE.
WHEN 'BACK'.
SET SCREEN 0.
LEAVE SCREEN.
WHEN 'WRITE'.
DATA STR(40) TYPE C.
STR = '所选条目：'.
DATA L_RET VALUE 'X'.
CALL METHOD ALV_GRID->CHECK_CHANGED_DATA
IMPORTING
E_VALID = L_RET.
LOOP AT ITAB INTO WA_ITAB WHERE CHK = 'X'.
CONCATENATE STR WA_ITAB-MESSAGE INTO STR.
ENDLOOP.
MESSAGE STR TYPE 'I'.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT

屏幕逻辑流
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
*
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.

给力

这...不是面向对象啊,只是自定义user-command而已...

这个例子好。