SAP abap ALV的列颜色、、行颜色、单元格颜色设置

列颜色设置：

*------------------------定义宏--------------------*

DEFINE INIT_FIELDCAT.

CLEAR GS_FIELDCAT.

  GS_FIELDCAT-FIELDNAME = &1. "字段名

  GS_FIELDCAT-COLTEXT  = &2. "ALV 控制: 列标题

  GS_FIELDCAT-EDIT   = &3." 是否可编辑

case &1.

when 'VBELN'.

     gs_fieldcat-emphasize = 'C601'."颜色设置 1 字体颜色，0 背景颜色

when 'ERDAT'.

     gs_fieldcat-emphasize = 'C600'.

ENDCASE.

APPEND GS_FIELDCAT TO GT_FIELDCAT.

END-OF-DEFINITION.

行颜色设置：

FORM FRM_DEALDATA .

*设置行颜色

types：line_color(4) type c,

LOOP AT GT_DATA INTO GS_DATA.

if gs_data-ERNAM = '33440'.

     gs_data-line_color = 'C600'.

ENDIF.

MODIFY GT_DATA FROM GS_DATA.

ENDLOOP.

ENDFORM.

FORM FRM_LAYOUT .

 gs_layout-info_fname = 'line_color'."行颜色

ENDFORM.

单元格颜色设置：

types：FIELD_COLOR   TYPE LVC_T_SCOL, "单元格颜色

FORM FRM_DEALDATA .

*设置单元格颜色

DATA:LS_SCOL TYPE LVC_S_SCOL.

LOOP AT GT_DATA INTO GS_DATA.

IF GS_DATA-ERNAM = '33440'.

      LS_SCOL-FNAME = 'ERNAM'.

      LS_SCOL-COLOR-COL = 6 .

      LS_SCOL-COLOR-INT = 0 .

      LS_SCOL-COLOR-INV = 0 .

APPEND LS_SCOL TO GS_DATA-FIELD_COLOR .

ENDIF.

MODIFY GT_DATA FROM GS_DATA.

ENDLOOP.

ENDFORM.

FORM FRM_LAYOUT .

  GS_LAYOUT-CTAB_FNAME = 'field_color'."单元格颜色

ENDFORM.