根据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;
根据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;