自定义fieldcate输出字段的alv控件实例

以航班表（spfli）为例，使用自定义fieldcate结构，通过ALV控件显示数据。

运行效果图：



程序代码：

1. REPORT  ZDEMON_002.
   
2. TYPE-POOLS:SLIS.  "ALV使用的类库
   
3. 
   
4. DATA: ST_FIELDCAT_LVC TYPE LVC_S_FCAT,
   
5.       IT_FIELDCAT_LVC TYPE LVC_T_FCAT.
   
6. 
   
7. DATA:WA_SPFLI TYPE SPFLI.
   
8. DATA:IT_SPFLI TYPE STANDARD TABLE OF SPFLI.
   
9. 
   
10. START-OF-SELECTION.
    
11. PERFORM GET_DATA.
    
12. PERFORM FIELDCATE.
    
13. PERFORM ALV_DISPALY.
    
14. 
    
15. FORM GET_DATA .
    
16.   SELECT *
    
17.   INTO CORRESPONDING FIELDS OF TABLE IT_SPFLI
    
18.   FROM SPFLI.
    
19. ENDFORM.                    " GET_DATA
    
20. 
    
21. FORM FIELDCATE .
    
22.   CLEAR ST_FIELDCAT_LVC."清空fieldcate结构，该结构里字段很多，防止前列的字段属性带入到后列
    
23.   ST_FIELDCAT_LVC-COL_POS = 1. " Output column
    
24.   ST_FIELDCAT_LVC-FIELDNAME = 'CARRID'." Field name of internal table field
    
25.   ST_FIELDCAT_LVC-SCRTEXT_M = '航线承运人'. "Medium Field Label
    
26.   APPEND ST_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
    
27.   CLEAR ST_FIELDCAT_LVC.
    
28.   ST_FIELDCAT_LVC-COL_POS = 2.
    
29.   ST_FIELDCAT_LVC-FIELDNAME = 'CONNID'. "注意引号里的字段不能小写，必须大写
    
30.   ST_FIELDCAT_LVC-SCRTEXT_M = '航班链接'.
    
31.   APPEND ST_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
    
32.   CLEAR ST_FIELDCAT_LVC.
    
33.   ST_FIELDCAT_LVC-COL_POS = 3.
    
34.   ST_FIELDCAT_LVC-FIELDNAME = 'CITYFROM'.
    
35.   ST_FIELDCAT_LVC-SCRTEXT_M = '起飞城市'.
    
36.   APPEND ST_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
    
37.   CLEAR ST_FIELDCAT_LVC.
    
38.   ST_FIELDCAT_LVC-COL_POS = 1.
    
39.   ST_FIELDCAT_LVC-FIELDNAME = 'CITYTO'.
    
40.   ST_FIELDCAT_LVC-SCRTEXT_M = '目标城市'.
    
41.   APPEND ST_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
    
42. ENDFORM.                    " FIELDCATE
    
43. 
    
44. FORM ALV_DISPALY .
    
45.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    
46.   EXPORTING
    
47.     IT_FIELDCAT_LVC                   = IT_FIELDCAT_LVC
    
48. *    I_DEFAULT                         = 'X'
    
49.   TABLES
    
50.     T_OUTTAB                          = IT_SPFLI.
    
51. 
    
52. ENDFORM.                    " ALV_DISPALY

复制代码