在alv中对列符合条件的特定字段的值进行着色

在这个程序中DISTANCE 字段满足一个条件被着色（如：DISTANCE值>600），下面是输出结果


程序代码：

1. TABLES: spfli.
   
2. TYPE-POOLS:slis.
   
3. 
   
4. DATA:
   
5. t_fieldcat TYPE slis_t_fieldcat_ALV,
   
6. fs_fieldcat LIKE LINE OF t_fieldcat,
   
7. fs_layout TYPE slis_layout_alv ,
   
8. w_color(3) ,
   
9. w_fieldname(20),
   
10. w_prog TYPE sy-repid.
    
11. 
    
12. DATA:
    
13. BEGIN OF t_spfli OCCURS 0,
    
14. color(3),
    
15. *checkbox ,
    
16. cell TYPE slis_t_specialcol_alv,
    
17. carrid TYPE spfli-carrid,
    
18. connid TYPE spfli-connid,
    
19. cityfrom TYPE spfli-cityfrom,
    
20. cityto TYPE spfli-cityto,
    
21. distance TYPE spfli-distance,
    
22. END OF t_spfli.
    
23. 
    
24. DATA:
    
25. fs_cell LIKE LINE OF t_spfli-cell.
    
26. 
    
27. SELECT *
    
28. FROM spfli
    
29. INTO CORRESPONDING FIELDS OF TABLE t_spfli.
    
30. 
    
31. fs_fieldcat-fieldname = 'CARRID'.
    
32. fs_fieldcat-ref_tabname = 'SPFLI'.
    
33. fs_fieldcat-col_pos = 1.
    
34. fs_fieldcat-key = 'X'.
    
35. fs_fieldcat-hotspot = 'X'.
    
36. APPEND fs_fieldcat TO t_fieldcat.
    
37. 
    
38. CLEAR fs_fieldcat .
    
39. fs_fieldcat-fieldname = 'CONNID'.
    
40. fs_fieldcat-ref_tabname = 'SPFLI'.
    
41. fs_fieldcat-col_pos = 2.
    
42. fs_fieldcat-key = 'X'.
    
43. fs_fieldcat-hotspot = 'X'.
    
44. APPEND fs_fieldcat TO t_fieldcat.
    
45. 
    
46. CLEAR fs_fieldcat .
    
47. fs_fieldcat-fieldname = 'DISTANCE'.
    
48. fs_fieldcat-ref_tabname = 'SPFLI'.
    
49. fs_fieldcat-col_pos = 3.
    
50. fs_fieldcat-key = ' '.
    
51. fs_fieldcat-edit = 'X'.
    
52. APPEND fs_fieldcat TO t_fieldcat.
    
53. 
    
54. CLEAR fs_fieldcat.
    
55. fs_fieldcat-fieldname = 'CITYFROM'.
    
56. fs_fieldcat-ref_tabname = 'SPFLI'.
    
57. fs_fieldcat-col_pos = 4.
    
58. fs_fieldcat-key = ' '.
    
59. APPEND fs_fieldcat TO t_fieldcat.
    
60. 
    
61. LOOP AT t_spfli WHERE distance GT 600.
    
62.   w_fieldname = 'DISTANCE'.
    
63.   fs_cell-fieldname = w_fieldname .
    
64.   fs_cell-color-col = 5.
    
65.   fs_cell-nokeycol = 'X'.
    
66.   APPEND fs_cell TO t_spfli-cell.
    
67.   MODIFY t_spfli TRANSPORTING cell.
    
68. ENDLOOP.
    
69. 
    
70. fs_layout-info_fieldname = 'COLOR'.
    
71. *fs_layout-box_fieldname = 'CHECKBOX'.
    
72. fs_layout-coltab_fieldname = 'CELL'.
    
73. fs_layout-f2code = '&ETA'.  "&ETA:细节  &IC1:双击
    
74. 
    
75. w_prog = sy-repid.
    
76. CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    
77.   EXPORTING
    
78.     i_callback_program = w_prog
    
79.     is_layout          = fs_layout
    
80.     it_fieldcat        = t_fieldcat
    
81.   TABLES
    
82.     t_outtab           = t_spfli
    
83.   EXCEPTIONS
    
84.     program_error      = 1
    
85.     OTHERS             = 2.
    
86. IF sy-subrc <> 0.
    
87. *MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    
88. *WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    
89. ENDIF.

复制代码