如何在DBGrid表格控件中为记录添加色带，即第一个记录为黄色，第二个记录为白色，第三个记录为黄色，第四个记录为白色，依次类推，此问题我已经查找了大量的资料但始终未能解决，请帮助我

Question

搞定！
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   if  Dbgrid1.DataSource.DataSet.recno mod 2<>0 then
   begin
      Dbgrid1.Canvas.Font.Color:=clred;
      dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
   end
   else
   begin
      Dbgrid1.Canvas.Font.Color:=clYellow;
      dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
   endend;

Answer 1

这个问题已经开出半天了，刚才转到第二页去了，我翻箱倒柜又找出来了！
呵呵，现在的分不好挣啊！