问题描述
有3列 商品 库存 出库

如果某个商品的出库数大于库存，出库的单元格背景变色，请问应该怎么做，谢谢
不要行一起变色

procedure TFrmpur.DBGridEh9DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if 出库 > 库存 then
begin
DBGridEh1.Canvas.Brush.Color := clLime;
DBGridEh1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
end;
end;

用了以上方法还是一行变色

if Column.Index = X then //X=出庫
begin
if 出库 > 库存 then
begin
DBGridEh1.Canvas.Brush.Color := clLime;
end
else
begin
DBGridEh1.Canvas.Brush.Color :=....;
end;
DBGridEh1.Canvas.TextRect...
end


===================引 用 sun9900 文 章===================
procedure TFrmpur.DBGridEh9DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if 出库 > 库存 then
begin
DBGridEh1.Canvas.Brush.Color := clLime;
DBGridEh1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
end;
end;

用了以上方法还是一行变色