在alv中着色行、列、单元格

选择屏幕

在选择屏幕仅仅输入Column Number and color，整列被着色

在选择屏幕仅仅输入the row Number and color，整行被着色

在选择屏幕，输入行、列、颜色，定位到特定位置被着色


NOTE：color的表示方法'Cxyz'
                X: Color Number(1~7)
                Y: Bold 加粗(1表示打开，0表示关闭)
                Z: Inverse 反色(1表示打开，0表示关闭)

程序代码：

1. TABLES:spfli.
   
2. 
   
3. TYPE-POOLS:slis.
   
4. 
   
5. PARAMETERS:
   
6. p_col TYPE i,
   
7. p_row TYPE i,
   
8. p_color(4) TYPE c.
   
9. 
   
10. DATA:
    
11. t_fieldcat TYPE slis_t_fieldcat_ALV,
    
12. fs_fieldcat LIKE LINE OF t_fieldcat,
    
13. fs_layout TYPE slis_layout_alv ,
    
14. w_color(4) ,
    
15. w_row TYPE i,
    
16. w_fieldname(20),
    
17. w_prog TYPE sy-repid.
    
18. 
    
19. DATA:
    
20. BEGIN OF t_spfli OCCURS 0,
    
21. color(4),
    
22. checkbox ,
    
23. cell TYPE slis_t_specialcol_alv,"复杂单元格颜色特殊的结构 有三个字段
    
24. carrid TYPE spfli-carrid,
    
25. connid TYPE spfli-connid,
    
26. cityfrom TYPE spfli-cityfrom,
    
27. cityto TYPE spfli-cityto,
    
28. distance TYPE spfli-distance,
    
29. END OF t_spfli.
    
30. 
    
31. DATA:
    
32. fs_cell LIKE LINE OF t_spfli-cell.
    
33. 
    
34. SELECT *
    
35. FROM spfli
    
36. INTO CORRESPONDING FIELDS OF TABLE t_spfli.
    
37. 
    
38. w_color = p_color.
    
39. 
    
40. t_spfli-color = p_color.
    
41. IF p_col IS INITIAL AND p_row GT 0.
    
42.   MODIFY t_spfli INDEX p_row TRANSPORTING color.
    
43. ENDIF.
    
44. 
    
45. fs_fieldcat-fieldname = 'CARRID'.
    
46. fs_fieldcat-ref_tabname = 'SPFLI'.
    
47. fs_fieldcat-col_pos = 1.
    
48. fs_fieldcat-key = 'X'.
    
49. fs_fieldcat-hotspot = 'X'.
    
50. APPEND fs_fieldcat TO t_fieldcat.
    
51. 
    
52. CLEAR fs_fieldcat .
    
53. fs_fieldcat-fieldname = 'CONNID'.
    
54. fs_fieldcat-ref_tabname = 'SPFLI'.
    
55. fs_fieldcat-col_pos = 2.
    
56. fs_fieldcat-key = 'X'.
    
57. fs_fieldcat-hotspot = 'X'.
    
58. APPEND fs_fieldcat TO t_fieldcat.
    
59. 
    
60. CLEAR fs_fieldcat .
    
61. fs_fieldcat-fieldname = 'DISTANCE'.
    
62. fs_fieldcat-ref_tabname = 'SPFLI'.
    
63. 
    
64. fs_fieldcat-col_pos = 3.
    
65. fs_fieldcat-key = ' '.
    
66. fs_fieldcat-edit = 'X'.
    
67. APPEND fs_fieldcat TO t_fieldcat.
    
68. 
    
69. CLEAR fs_fieldcat.
    
70. fs_fieldcat-fieldname = 'CITYFROM'.
    
71. fs_fieldcat-ref_tabname = 'SPFLI'.
    
72. fs_fieldcat-col_pos = 4.
    
73. fs_fieldcat-key = ' '.
    
74. APPEND fs_fieldcat TO t_fieldcat.
    
75. 
    
76. LOOP AT t_fieldcat INTO fs_fieldcat.
    
77.   IF fs_fieldcat-col_pos EQ p_col.
    
78.     fs_fieldcat-emphasize = p_color.
    
79.     w_fieldname = fs_fieldcat-fieldname.
    
80.     IF p_row IS INITIAL AND p_col GT 0.
    
81.       MODIFY t_fieldcat FROM fs_fieldcat TRANSPORTING emphasize.
    
82.     ENDIF.
    
83.   ENDIF.
    
84. ENDLOOP.
    
85. 
    
86. fs_cell-fieldname = w_fieldname ."需要着色字段名称
    
87. fs_cell-color-col = 6."颜色（1~7）
    
88. fs_cell-nokeycol = 'X'."是否显示主键颜色
    
89. APPEND fs_cell TO t_spfli-cell.
    
90. 
    
91. IF p_row IS NOT INITIAL AND p_col IS NOT INITIAL.
    
92.   MODIFY t_spfli INDEX p_row TRANSPORTING cell.
    
93. ENDIF.
    
94. 
    
95. fs_layout-info_fieldname = 'COLOR'."简单的单行颜色控制
    
96. fs_layout-box_fieldname = 'CHECKBOX'."多选框
    
97. fs_layout-coltab_fieldname = 'CELL'.“复杂的单元格颜色控制，需要内表结构
    
98. fs_layout-f2code = '&ETA'."单击显示明细
    
99. 
    
100. w_prog = sy-repid.
     
101. CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     
102.   EXPORTING
     
103.     i_callback_program = w_prog
     
104.     is_layout          = fs_layout
     
105.     it_fieldcat        = t_fieldcat
     
106.   TABLES
     
107.     t_outtab           = t_spfli
     
108.   EXCEPTIONS
     
109.     program_error      = 1
     
110.     OTHERS             = 2.
     
111. IF sy-subrc <> 0.
     
112. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
     
113. * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     
114. ENDIF.

复制代码