急,单元格变色100分(100)

怎么使DBgrideh某个单元格符合某个条件下变红色

Procedure TFrom1.DBGridEh1DrawColumnCell(Sender: TObject; Const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);Begin If SameText(Column.DisplayName, ADODataSet1ckvalue.FieldName) Then //列名称 Begin If SameText(Trim(ADODataSet1ckvalue.Value), '合格') Then //合格时显示颜色:clLime; Begin DBGridEh1.Canvas.Brush.Color := clLime; End Else If SameText(Trim(ADODataSet1ckvalue.Value), '不合格') Then//不合格时显示颜色:clred; Begin DBGridEh1.Canvas.Brush.Color := clred; End; End; DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);End;//大致是这样的，自己修改下即可。

如：dbgrideh1连接了一个数据表ＡＡaa bb cc ddds101 6 8ds101 4 5 8ds101 1 6 我查找　aa='ds101' and dd=8然后符合条件的dd字段的单元格变成红色

If SameText(Column.DisplayName, ADODataSet1dd.FieldName) Then //列名称 Begin If SameText(Trim(ADODataSet1aa.Value), 'ds101') And (ADODataSet1dd.Value=8) Then Begin DBGridEh1.Canvas.Brush.Color := clred; End; End; DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);