《ALV颜色及选择框处理.doc》由会员分享，可在线阅读，更多相关《ALV颜色及选择框处理.doc（12页珍藏版）》请在三一文库上搜索。
1、 ALV颜色设置 . ALV颜色设置实践与总结 一. 行颜色 1. 在结果内表中添加字段 color(4) TYPE c ,用来存储四位颜色值. 2. 在内表循环中给这个字段赋值，比如C310 黄色. 3. 最关键的一点，在layout结构中设定颜色字段的名字，代码如下： is_layout-info_fieldname = COLOR. 行颜色字段 is_layout 是我们声明的一个ALV的 type slis_layout_alv 的结构. 二. 列颜色 列颜色较为简单，我们在填充结构 it_fieldcat TYPE slis_t_fieldcat_alv 时，字段emphasize为
2、每一列直接赋值就好了。 三.单元格颜色 1. 在结果内表中添加字段 cellcolor TYPE lvc_t_scol . 这是一个内表，用来存储单元格的颜色。 2. 在内表循环中给这个内表赋值，示例代码如下： PERFORM fill_cellcolor CHANGING wa_result-cellcolor. 单元格高亮（黄色） FORM fill_cellcolor CHANGING p_cellcolor type lvc_t_scol. DATA wa_cellcolor TYPE lvc_s_scol . 单元格颜色结构 DEFINE set_color. wa_cellcolo
3、r-fname = &1. wa_cellcolor-color-col = 3. wa_cellcolor-color-int = 1. wa_cellcolor-color-inv = 0. append wa_cellcolor to p_cellcolor. END-OF-DEFINITION. set_color MATNR. set_color MAKTX. set_color MEINS. set_color CNT_S. set_color QUOTE1. set_color QUOTE2. ENDFORM. fill_cellcolor 3. 最关键的一点，在layout结构
4、中设定颜色字段的名字，代码如下： is_layout-coltab_fieldname = CELLCOLOR. 单元格颜色字段 总结： 当同时设定了行颜色和列颜色后，行颜色会覆盖列颜色，有的时候用户不希望这种结果的出现，解决办法就是设定每行的单元格（当然不包括与设定列颜色的列相交叉的单元格）的颜色。 X 颜色 主要用处 1 灰蓝色 抬头、标题栏 2 浅灰色 列表内容 3 黄色 汇总 4 蓝色 关键字 5 绿色 正确 6 红色 错误 7 橙色 控制 附录：ABAP颜色代码 ABAP中的颜色代码是由4位字都组成的 Cxyz C：color的简写，颜色代码均以C开头 x：标准色代码，SAP中一共有
5、7个标准色 y：反转颜色启用/关闭 1/0 z：增强颜色启用/关闭 1/0 标准色代码一览表 ALV 的颜色码 ALV颜色及选择框处理 一、 效果图 此例中包含三项技术， 选择块 选择框 单行单列中颜色的设定 相应的代码我将分别以灰、黄、青绿为底色在代码中加以区分，要在ALV中实现相应的功能，您只要关注对应的底色即可，也就是说这三个功能相互独立，互不影响。 REPORT ytest03. DATA: BEGIN OF itab OCCURS 0, selkz TYPE char01, check TYPE char01, col1 TYPE char10, col2 TYPE char10,
6、tabcol TYPE lvc_t_scol, END OF itab. DATA: col TYPE lvc_s_scol. *-* * ALV Definition * *-* TYPE-POOLS: slis. DATA: g_repid TYPE sy-repid, gt_fieldcat TYPE slis_t_fieldcat_alv, gt_layout TYPE slis_layout_alv, gt_sortinfo TYPE slis_sortinfo_alv, gt_lvc_title TYPE lvc_title, gt_list_top_of_page TYPE sl
7、is_t_listheader, gt_events TYPE slis_t_event, gt_fcat TYPE lvc_t_fcat, gt_table TYPE REF TO data, gs_settings TYPE lvc_s_glay, f2code LIKE sy-ucomm VALUE &TEA. DATA: g_status_form TYPE slis_formname VALUE PF_STATUS_SET, g_command_form TYPE slis_formname VALUE USER_COMMAND. DATA: events TYPE slis_alv
8、_event OCCURS 0 WITH HEADER LINE. * PERFORM f_deal_data. PERFORM f_fieldcat_build. PERFORM f_eventcat_build. PERFORM f_alv_display. *&-* *& Form FRM_FILL_TABLE *&-* * text *-* * -P_COL1 text * -P_COL2 text *-* FORM frm_fill_table USING p_col1 TYPE c p_col2 TYPE c. itab-col1 = p_col1. itab-col2 = p_c
9、ol2. APPEND itab. CLEAR itab. ENDFORM. FRM_FILL_TABLE *&-* *& Form F_DEAL_DATA *&-* * text *-* * - p1 text * p1 text * p1 text * - p2 text *-* FORM f_alv_display . *- ALV函数输出数据 CALL FUNCTION REUSE_ALV_GRID_DISPLAY EXPORTING i_callback_program = sy-repid i_callback_pf_status_set = g_status_form i_cal
10、lback_user_command = USER_COMMAND g_command_form is_layout = gt_layout it_fieldcat = gt_fieldcat it_events = events TABLES t_outtab = itab EXCEPTIONS program_error = 1 OTHERS = 2. IF sy-subrc 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. F_ALV_DISPLAY *&-* *& Form F_EVENTCAT_BUILD *&-* * text *-* * - p1 text * check_changed_data. CASE i_ucomm. WHEN &PRINT. WHEN OTHERS. ENDCASE. ENDFORM. ALV_USER_COMMAND1 （注：专业文档是经验性极强的领域，无法思考和涵盖全面，素材和资料部分来自网络，供参考。可复制、编制，期待你的好评与关注）