4gl单身行按条件显示不同的颜色！----我不是原创

一、单身颜色：
1.首先MAIN函数之前定义一个数组(这个数组名称最好与单身主数组一致只在后面加个_Color，里面的栏位名称与单身主数组保持一致)
例如：
 DEFINE g_oeb_color     DYNAMIC ARRAY OF RECORD  
         c01   STRING,c02   STRING,  
         c03   STRING,c04   STRING,  
         c05   STRING,c06   STRING,  
         c07   STRING,c08   STRING,  
         c09   STRING,c10   STRING,  
         c11   STRING,c12   STRING  
      END RECORD  
2._bp(p_ud) 函数里面：
##setCellAttributes( attarr ARRAY OF RECORD )
##Defines decoration attributes for each cell. (定义每个单元格的属性)
  BEFORE DISPLAY   ##显示之前设置属性
    CALL DIALOG.setCellAttributes(g_oeb_color)
3._fill函数里面
  首先 CALL g_oeb_color.clear()   #清空
  然后 FOREACH 里面 判断并赋值(可以对多个栏位，也可以是某一个栏位)
 IF g_ta_gja[g_cnt].tc_gja10 >5 AND g_ta_gja[g_cnt].tc_gja10<10 THEN  
    LET g_oeb_color[g_cnt].c01 =""  
    LET g_oeb_color[g_cnt].c02 =""  
    LET g_oeb_color[g_cnt].c03 =""  
    LET g_oeb_color[g_cnt].c04 =""  
    LET g_oeb_color[g_cnt].c05 =""  
    LET g_oeb_color[g_cnt].c06 =""  
    LET g_oeb_color[g_cnt].c07 =""  
    LET g_oeb_color[g_cnt].c08 =""  
    LET g_oeb_color[g_cnt].c09 =""  
    LET g_oeb_color[g_cnt].c10 ="red"  
     LET g_oeb_color[g_cnt].c11 =""  
     LET g_oeb_color[g_cnt].c12 =""  
  ELSE IF g_ta_gja[g_cnt].tc_gja10>10 THEN  
    LET g_oeb_color[g_cnt].c01 =""  
    LET g_oeb_color[g_cnt].c02 =""  
    LET g_oeb_color[g_cnt].c03 =""  
    LET g_oeb_color[g_cnt].c04 =""  
    LET g_oeb_color[g_cnt].c05 =""  
    LET g_oeb_color[g_cnt].c06 =""  
    LET g_oeb_color[g_cnt].c07 =""  
    LET g_oeb_color[g_cnt].c08 =""  
    LET g_oeb_color[g_cnt].c09 =""  
    LET g_oeb_color[g_cnt].c10 ="blue"  
     LET g_oeb_color[g_cnt].c11 =""  
     LET g_oeb_color[g_cnt].c12 =""  
 ELSE  
    LET g_oeb_color[g_cnt].c01 =""  
    LET g_oeb_color[g_cnt].c02 =""  
    LET g_oeb_color[g_cnt].c03 =""  
    LET g_oeb_color[g_cnt].c04 =""  
    LET g_oeb_color[g_cnt].c05 =""  
    LET g_oeb_color[g_cnt].c06 =""  
    LET g_oeb_color[g_cnt].c07 =""  
    LET g_oeb_color[g_cnt].c08 =""  
    LET g_oeb_color[g_cnt].c09 =""  
    LET g_oeb_color[g_cnt].c10 ="green blod"  
     LET g_oeb_color[g_cnt].c11 =""  
     LET g_oeb_color[g_cnt].c12 =""  
  END IF  
  END IF