Código Delphi
[-]procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Odd(DBGrid1.DataSource.DataSet.FieldByname('ASIENTO').asInteger) then
DBGrid1.Canvas.Brush.Color := clMoneyGreen
else
DBGrid1.Canvas.Brush.Color := clCream;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
Y no te vale así ? asientos pares un color, impares otro. En principio, si están ordenados por asiento, y teniendo en cuenta que no puede haber saltos ...
Es igual que el código de ecfisa pero en lugar de usar Recno usas el valor del campo asiento.
Un saludo