ALV控件.docVIP

简单的ALV控件实例 以航班表（SPFLI）为例，使用数据字典定义结构，通过ALV控件显示数据。 REPORT YTEST26. *定义内表 DATA WA_SPFLI LIKE TABLE OF SPFLI WITH HEADER LINE. *内表赋值 SELECT * INTO TABLE WA_SPFLI FROM SPFLI. *通过数据字典结构显示ALV CALL FUNCTION REUSE_ALV_LIST_DISPLAY EXPORTING I_STRUCTURE_NAME = SPFLI TABLES T_OUTTAB = WA_SPFLI EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2. IF SY-SUBRC 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. 输出结果如图所示。 自定义输出字段的ALV控件实例 SAP LIST VIEW REPORT YTEST27. *ALV使用到的类库 TYPE-POOLS: SLIS. *一列描述 DATA WA_ALV_FIELD TYPE SLIS_FIELDCAT_ALV. *列描述内表，列清单 DATA WA_ALV_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV. *定义内表 DATA WA_SPFLI LIKE TABLE OF SPFLI WITH HEADER LINE. *内表赋值 SELECT * INTO TABLE WA_SPFLI FROM SPFLI. *定义第一到第四个字段 WA_ALV_FIELD-COL_POS = 1. WA_ALV_FIELD-FIELDNAME = CARRID. WA_ALV_FIELD-SELTEXT_M = 航线承运人. APPEND WA_ALV_FIELD TO WA_ALV_FIELDCAT. WA_ALV_FIELD-COL_POS = 2. WA_ALV_FIELD-FIELDNAME = CONNID. WA_ALV_FIELD-SELTEXT_M = 航班连接. APPEND WA_ALV_FIELD TO WA_ALV_FIELDCAT. WA_ALV_FIELD-COL_POS = 3. WA_ALV_FIELD-FIELDNAME = CITYFROM. WA_ALV_FIELD-SELTEXT_M = 起飞城市. APPEND WA_ALV_FIELD TO WA_ALV_FIELDCAT. WA_ALV_FIELD-COL_POS = 4. WA_ALV_FIELD-FIELDNAME = CITYTO. WA_ALV_FIELD-SELTEXT_M = 目标城市. APPEND WA_ALV_FIELD TO WA_ALV_FIELDCAT. *调用ALV显示表单数据 CALL FUNCTION REUSE_ALV_LIST_DISPLAY EXPORTING IT_FIELDCAT = WA_ALV_FIELDCAT TABLES T_OUTTAB = WA_SPFLI * EXCEPTIONS * PROGRAM_ERROR = 1 * OTHERS = 2 . IF SY-SUBRC 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. 输出结果如图所示。