SAP: SALV Grid 单元格颜色

1、SAP: SALV Grid 单元格颜色

2、详细程序代码

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78

*&---------------------------------------------------------------------* *& Report  Z17_43 *& *&---------------------------------------------------------------------* *& SALV单元格颜色 *& *&---------------------------------------------------------------------*   REPORT Z17_43.   INCLUDE <color>.   *& 定义内表结构体 TYPES: BEGIN OF g_type_itab.         INCLUDE type sflight. TYPES: t_color type lvc_t_scol,   "单元格颜色 类型 end of g_type_itab. " g_type_itab 结构体   DATA: gt_itab TYPE TABLE OF g_type_itab. DATA: gs_itab TYPE g_type_itab,       gr_table TYPE REF TO cl_salv_table.     *& SELECT * FROM sflight into CORRESPONDING FIELDS OF TABLE   gt_itab up to 25 rows.     FIELD-SYMBOLS: <ls_outtab>  type g_type_itab. DATA: lt_color type lvc_t_scol,       ls_color type lvc_s_scol.   LOOP AT gt_itab ASSIGNING <ls_outtab>.   CLEAR: ls_color, lt_color.     " 占据的座位数量大于 90时， 红色 。"   IF <ls_outtab>-seatsocc >= 90 .     ls_color-fname = 'SEATSOCC'.     ls_color-color-col = col_negative.     ls_color-color-int = 0 .     ls_color-color-inv = 0.     APPEND ls_color to lt_color.     "小于50 常规色   elseIF <ls_outtab>-seatsocc >= 50 .     ls_color-fname = 'SEATSOCC'.     ls_color-color-col = col_normal.     ls_color-color-int = 0 .     ls_color-color-inv = 0.     APPEND ls_color to lt_color.     " 其他情况 为绿色 "   else .     ls_color-fname = 'SEATSOCC'.     ls_color-color-col = col_positive.     ls_color-color-int = 0 .     ls_color-color-inv = 0.     APPEND ls_color to lt_color.   ENDIF.     <ls_outtab>-t_color = lt_color. ENDLOOP.   *& cl_salv_table=>factory(    IMPORTING   r_salv_table = gr_table   CHANGING     t_table = gt_itab ).   *& DATA: lr_columns TYPE REF TO cl_salv_columns_table,       lr_column TYPE REF TO cl_salv_column_table.   lr_columns = gr_table->get_columns( ). lr_columns->set_color_column( 'T_COLOR' ).   gr_table->display( ). *&

　　

3、效果图