根据dbgried的值修改背景颜色

根据dbgried的值修改背景颜色

 





  if cpxxDBGridEh.SumList.RecNo mod 2 = 1 then 
        Background := $00FFFFFF 
    else 
        Background := $E7FEE1;  //以上根据行改变颜色 
    if Column.FieldName='CREDIT' then  
    begin 
          if column.Field.Value<='0' then  //根据个别值改变颜色 
          Background := clred; 
    end;