直接代码不解释：
1 *&---------------------------------------------------------------------* 2 *& Report ZRDEMO 3 *& 4 *&---------------------------------------------------------------------* 5 *& 6 *& 7 *&---------------------------------------------------------------------* 8 9 REPORT ZRDEMO2. 10 11 TABLES:MAKT,MARC. 12 TYPE-POOLS:SLIS. 13 14 TYPES:BEGIN OF TY_ALV. 15 INCLUDE TYPE MAKT. 16 TYPES: ZCHECK TYPE C, 17 END OF TY_ALV. 18 19 *ALV 20 DATA:GT_ALV TYPE TABLE OF TY_ALV. 21 DATA:GS_ALV TYPE TY_ALV. 22 DATA:GT_FIELDCAT TYPE LVC_T_FCAT. 23 DATA:GS_FIELDCAT TYPE LVC_S_FCAT. 24 DATA:GS_LAYOUT TYPE LVC_S_LAYO. 25 26 27 *---------------------------------------------------------------------* 28 *选择屏幕 29 *---------------------------------------------------------------------* 30 SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. 31 SELECT-OPTIONS:S_MATNR FOR MAKT-MATNR. 32 33 SELECTION-SCREEN END OF BLOCK B1. 34 35 36 SELECTION-SCREEN COMMENT /3(40) COMM1. 37 SELECTION-SCREEN COMMENT /3(40) COMM2. 38 SELECTION-SCREEN COMMENT /3(40) COMM3. 39 40 INITIALIZATION. 41 COMM1 = '备注1'. 42 COMM2 = '备注2'. 43 COMM3 = '备注3'. 44 45 46 47 *---------------------------------------------------------------------* 48 *START-OF-SELECTION. 49 *---------------------------------------------------------------------* 50 START-OF-SELECTION. 51 PERFORM FRM_GET_DATA. 52 PERFORM FRM_DISPLAY_ALV. 53 54 55 56 57 *&---------------------------------------------------------------------* 58 *& Form FRM_GET_DATA 59 *&---------------------------------------------------------------------* 60 * text 61 *----------------------------------------------------------------------* 62 FORM FRM_GET_DATA . 63 64 SELECT MANDT 65 MATNR 66 SPRAS 67 MAKTX 68 MAKTG 69 INTO TABLE GT_ALV 70 FROM MAKT 71 WHERE MATNR IN S_MATNR 72 AND SPRAS = SY-LANGU. 73 74 75 IF GT_ALV IS INITIAL. 76 MESSAGE '没有找到数据' TYPE 'S' DISPLAY LIKE 'E'. 77 LEAVE LIST-PROCESSING. 78 ENDIF. 79 80 ENDFORM. " FRM_GET_DATA 81 82 83 *&---------------------------------------------------------------------* 84 *& Form FRM_DISPLAY_ALV 85 *&---------------------------------------------------------------------* 86 * text 87 *----------------------------------------------------------------------* 88 FORM FRM_DISPLAY_ALV . 89 PERFORM FRM_SET_FILEDCAT. 90 PERFORM FRM_SET_LAYOUT. 91 PERFORM FRM_DISPLAY. 92 ENDFORM. " FRM_DISPLAY_ALV 93 94 95 *&---------------------------------------------------------------------* 96 *& Form FRM_SET_FILEDCAT 97 *&---------------------------------------------------------------------* 98 * text 99 *----------------------------------------------------------------------* 100 FORM FRM_SET_FILEDCAT . 101 GS_FIELDCAT-FIELDNAME = 'MANDT'. 102 GS_FIELDCAT-COLTEXT = '客户端'. 103 GS_FIELDCAT-NO_ZERO = 'X'. 104 APPEND GS_FIELDCAT TO GT_FIELDCAT. 105 CLEAR GS_FIELDCAT. 106 GS_FIELDCAT-FIELDNAME = 'MATNR'. 107 GS_FIELDCAT-COLTEXT = '物料号'. 108 GS_FIELDCAT-NO_ZERO = 'X'. 109 APPEND GS_FIELDCAT TO GT_FIELDCAT. 110 CLEAR GS_FIELDCAT. 111 GS_FIELDCAT-FIELDNAME = 'SPRAS'. 112 GS_FIELDCAT-COLTEXT = '语言代码'. 113 APPEND GS_FIELDCAT TO GT_FIELDCAT. 114 CLEAR GS_FIELDCAT. 115 GS_FIELDCAT-FIELDNAME = 'MAKTX'. 116 GS_FIELDCAT-COLTEXT = '物料描述（短文本）'. 117 APPEND GS_FIELDCAT TO GT_FIELDCAT. 118 CLEAR GS_FIELDCAT. 119 GS_FIELDCAT-FIELDNAME = 'MAKTG'. 120 GS_FIELDCAT-COLTEXT = '有关匹配码的大写的物料描述'. 121 APPEND GS_FIELDCAT TO GT_FIELDCAT. 122 CLEAR GS_FIELDCAT. 123 ENDFORM. " FRM_SET_FILEDCAT 124 125 126 *&---------------------------------------------------------------------* 127 *& Form FRM_SET_LAYOUT 128 *&---------------------------------------------------------------------* 129 * text 130 *----------------------------------------------------------------------* 131 FORM FRM_SET_LAYOUT . 132 GS_LAYOUT-ZEBRA = 'X'. 133 GS_LAYOUT-SEL_MODE = 'A'. "选择模式 134 GS_LAYOUT-CWIDTH_OPT = 'X'. 135 GS_LAYOUT-BOX_FNAME = 'ZCHECK'. 136 ENDFORM. " FRM_SET_LAYOUT 137 138 139 *&---------------------------------------------------------------------* 140 *& Form FRM_DISPLAY 141 *&---------------------------------------------------------------------* 142 * text 143 *----------------------------------------------------------------------* 144 FORM FRM_DISPLAY . 145 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' 146 EXPORTING 147 * I_INTERFACE_CHECK = ' ' 148 * I_BYPASSING_BUFFER = 149 I_BUFFER_ACTIVE = 'X' 150 I_CALLBACK_PROGRAM = SY-REPID 151 I_CALLBACK_PF_STATUS_SET = 'FRM_STATUS_SET' 152 I_CALLBACK_USER_COMMAND = 'FRM_USER_COMMAND' 153 * I_CALLBACK_TOP_OF_PAGE = 'FRM_SET_HEADER' 154 * I_CALLBACK_HTML_TOP_OF_PAGE = ' ' 155 * I_CALLBACK_HTML_END_OF_LIST = ' ' 156 * I_STRUCTURE_NAME = 157 * I_BACKGROUND_ID = G_REPID 158 * I_GRID_TITLE = 159 * I_GRID_SETTINGS = I_GRID_SETTINGS 160 IS_LAYOUT_LVC = GS_LAYOUT 161 IT_FIELDCAT_LVC = GT_FIELDCAT 162 * IT_EXCLUDING = 163 * IT_SPECIAL_GROUPS_LVC = 164 * IT_SORT_LVC = 165 * IT_FILTER_LVC = 166 * IT_HYPERLINK = 167 * IS_SEL_HIDE = 168 * I_DEFAULT = 'X' 169 I_SAVE = 'X' 170 * IS_VARIANT = 171 * IT_EVENTS = GT_EVENTS 172 * IT_EVENT_EXIT = 173 * IS_PRINT_LVC = 174 * IS_REPREP_ID_LVC = 175 * I_SCREEN_START_COLUMN = 0 176 * I_SCREEN_START_LINE = 0 177 * I_SCREEN_END_COLUMN = 0 178 * I_SCREEN_END_LINE = 0 179 * I_HTML_HEIGHT_TOP = 180 * I_HTML_HEIGHT_END = 181 * IT_ALV_GRAPHICS = 182 * IT_EXCEPT_QINFO_LVC = 183 * IR_SALV_FULLSCREEN_ADAPTER = 184 * IMPORTING 185 * E_EXIT_CAUSED_BY_CALLER = 186 * ES_EXIT_CAUSED_BY_USER = 187 TABLES 188 T_OUTTAB = GT_ALV 189 EXCEPTIONS 190 PROGRAM_ERROR = 1 191 OTHERS = 2. 192 IF SY-SUBRC <> 0. 193 ENDIF. 194 ENDFORM. " FRM_DISPLAY 195 196 197 198 *&---------------------------------------------------------------------* 199 *& Form FRM_STATUS_SET 200 *&---------------------------------------------------------------------* 201 * text 202 *----------------------------------------------------------------------* 203 * -->RT_EXTAB text 204 *----------------------------------------------------------------------* 205 FORM FRM_STATUS_SET USING RT_EXTAB TYPE SLIS_T_EXTAB. 206 SET PF-STATUS 'STANDARD' . 207 ENDFORM. "FRM_STATUS_SET 208 209 210 *&---------------------------------------------------------------------* 211 *& Form FRM_USER_COMMAND 212 *&---------------------------------------------------------------------* 213 * text 214 *----------------------------------------------------------------------* 215 * -->R_UCOMM text 216 * -->RS_SELFIELD text 217 *----------------------------------------------------------------------* 218 FORM FRM_USER_COMMAND USING 219 R_UCOMM LIKE SY-UCOMM 220 RS_SELFIELD TYPE SLIS_SELFIELD. 221 222 CASE R_UCOMM. 223 WHEN 'ZPRINT'. 224 BREAK-POINT. 225 MESSAGE 'ZPRINT' TYPE 'S'. 226 WHEN OTHERS. 227 ENDCASE. 228 229 ENDFORM. "FRM_USER_COMMAND