procedure TForm8.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  Case DataCol Mod 2 = 0 of
True: DbGrid1.Canvas.Brush.Color:= clwhite; //偶数列用蓝色
False: DbGrid1.Canvas.Brush.Color:= clgray; //奇数列用浅绿色
End;
DbGrid1.Canvas.Pen.Mode:=pmMask;
DbGrid1.DefaultDrawColumnCell (Rect
,DataCol
,Column
,State);

end;

请问不用语句,记dbgrid 属性能实现吗,因为人要求不高
就是,有两个dbgrid,中有一个相同的字段我想让这两个列为同种颜色.就行.

可以的，双击它，然后增加所有字段，退出再改运行时就看到你要的效果了，不过注意，如果你是用QUERY的，也要双击，再右击，把所有的字段同样的也加进去。试试看吧