ALV中行、列、单元格颜色控制小案例

ALV颜色控制可以分为：行颜色、列颜色、单元格颜色

程序代码：

1. *&---------------------------------------------------------------------*
   
2. *& Create: 蜡笔小彭 by 2010.01.05
   
3. *&
   
4. *&---------------------------------------------------------------------*
   
5. TYPE-POOLS:slis.
   
6. 
   
7. TYPES:
   
8.   BEGIN OF typ_main,
   
9.     color1(10)  TYPE c,
   
10.     color2(10)  TYPE c,
    
11.     color3(10)  TYPE c,
    
12.     color4(10)  TYPE c,
    
13.     color5(10)  TYPE c,
    
14.     color6(10)  TYPE c,
    
15.     color7(10)  TYPE c,
    
16.     color8(10)  TYPE c,
    
17.     color9(10)  TYPE c,
    
18.     color10(10) TYPE c,
    
19.     color11(10) TYPE c,
    
20.     color12(10) TYPE c,
    
21.     color13(10) TYPE c,
    
22.     color14(10) TYPE c,
    
23.     color15(10) TYPE c,
    
24.     color16(10) TYPE c,
    
25.     color17(10) TYPE c,
    
26.     color18(10) TYPE c,
    
27.     color19(10) TYPE c,
    
28.     color20(10) TYPE c,
    
29.     color21(10) TYPE c,
    
30.     color22(10) TYPE c,
    
31.     color23(10) TYPE c,
    
32.     color24(10) TYPE c,
    
33.     color25(10) TYPE c,
    
34.     color26(10) TYPE c,
    
35.     color27(10) TYPE c,
    
36.     color28(10) TYPE c,
    
37.     rowcolor(4) TYPE c,
    
38.     cellcolors  TYPE lvc_t_scol,  " 单元格颜色
    
39.   END OF typ_main.
    
40. DATA: w_main TYPE typ_main.
    
41. DATA: t_main TYPE TABLE OF typ_main.
    
42. 
    
43. DATA: l_line(2) TYPE c .
    
44. DATA: l_column(2) TYPE c .
    
45. 
    
46. DATA: l_mod TYPE c.
    
47. DATA: l_int TYPE c.
    
48. DATA: l_num TYPE n LENGTH 2.
    
49. DATA: fieldname TYPE string .
    
50. DATA: ls_cellcolor TYPE lvc_s_scol.
    
51. 
    
52. DATA: w_fcat TYPE slis_fieldcat_alv,            "ALV显示字段结构
    
53.       w_layo TYPE slis_layout_alv,              "ALV显示风格结构
    
54.       i_fcat TYPE slis_t_fieldcat_alv.
    
55. 
    
56. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
    
57. PARAMETERS: p_line   RADIOBUTTON GROUP grp1 DEFAULT 'X',
    
58.             p_column RADIOBUTTON GROUP grp1,
    
59.             p_cell   RADIOBUTTON GROUP grp1.
    
60. SELECTION-SCREEN END OF BLOCK b1.
    
61. 
    
62. START-OF-SELECTION .
    
63.   CLEAR: l_line,l_column .
    
64.   FIELD-SYMBOLS:<fs>.
    
65. 
    
66.   DO 28 TIMES.
    
67. *    CLEAR: w_main.
    
68.     l_int = l_line DIV 4 . " 整数
    
69.     l_int = l_int + 1 .
    
70.     l_mod = l_line MOD 4 . " 余数
    
71.     l_num+0(1) = l_mod DIV 2 .
    
72.     l_num+1(1) = l_mod MOD 2 .
    
73.     CONCATENATE 'C' l_int l_num INTO w_main-rowcolor.
    
74. 
    
75.     l_line = l_line + 1 .
    
76.     CLEAR: l_column.
    
77.     DO 28 TIMES.
    
78.       l_column = l_column + 1.
    
79.       CONCATENATE 'W_MAIN-COLOR' l_column INTO fieldname .
    
80.       ASSIGN (fieldname) TO <fs>.
    
81.       CONCATENATE '第' l_line '行' '第' l_column '列' INTO <fs> .
    
82.       IF l_line = l_column .
    
83.         CLEAR: ls_cellcolor.
    
84.         CONCATENATE 'COLOR' l_column INTO fieldname.
    
85.         ls_cellcolor-fname = fieldname .
    
86.         ls_cellcolor-color-col = w_main-rowcolor+1(1).
    
87.         ls_cellcolor-color-int = w_main-rowcolor+2(1).
    
88.         ls_cellcolor-color-inv = w_main-rowcolor+3(1).
    
89.         APPEND ls_cellcolor TO w_main-cellcolors[] .
    
90.       ENDIF.
    
91.     ENDDO.
    
92.     APPEND w_main TO t_main .
    
93.   ENDDO.
    
94. 
    
95. END-OF-SELECTION .
    
96.   CLEAR: i_fcat,w_fcat,l_line .
    
97.   DO 28 TIMES.
    
98.     IF p_column = 'X'.
    
99.       l_int = l_line DIV 4 . " 整数
    
100.       l_int = l_int + 1 .
     
101.       l_mod = l_line MOD 4 . " 余数
     
102.       l_num+0(1) = l_mod DIV 2 .
     
103.       l_num+1(1) = l_mod MOD 2 .
     
104.       CONCATENATE 'C' l_int l_num INTO w_fcat-emphasize.
     
105.     ENDIF.
     
106. 
     
107.     l_line = l_line + 1.
     
108.     CONCATENATE 'COLOR' l_line INTO fieldname .
     
109.     w_fcat-fieldname = fieldname .
     
110.     w_fcat-seltext_l = fieldname .
     
111.     w_fcat-outputlen = 10.
     
112.     APPEND w_fcat TO i_fcat.
     
113.   ENDDO.
     
114. 
     
115.   IF p_line = 'X'.
     
116.     w_layo-info_fieldname = 'ROWCOLOR'.
     
117.   ELSEIF p_cell = 'X'.
     
118.     w_layo-coltab_fieldname = 'CELLCOLORS'.
     
119.   ENDIF.
     
120. 
     
121. 
     
122.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     
123.     EXPORTING
     
124.       i_callback_program = sy-repid
     
125.       is_layout          = w_layo
     
126.       it_fieldcat        = i_fcat
     
127.       i_default          = 'X'
     
128.       i_save             = 'U'
     
129.     TABLES
     
130.       t_outtab           = t_main
     
131.     EXCEPTIONS
     
132.       program_error      = 1
     
133.       OTHERS             = 2.

复制代码

程序测试：