如何使dbgrid中的不同行显示不同的颜色？

Question

谢谢！！

Answer 1

找个第三方DBGrid控件吧，TMS组件包的DbAdvStringGrid就可以

Answer 2

http://expert.csdn.net/Expert/topic/1590/1590208.xml 这里有你要的问题 自己看着办吧

Answer 3

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
        DataCol: Integer; Column: TColumn; State: TGridDrawState);
    if adotable1.fieldbyname('id').asinteger mod 2=0 then
     begin
       dbgrid1.canvas.font.color:=clblue;
       dbgrid1.canvas.brush.color:=clgrasientActivecaption;
     end;
     dbgrid1.DefaultDrawColumnCell(Rect,datacol,column,State);
end;

Answer 4

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
        DataCol: Integer; Column: TColumn; State: TGridDrawState);
  case ADOQuery1.RecNo mod 2 of  //实现效果和CSDN一致
    0: Canvas.Brush.Color:=clSkyBlue;
    1: Canvas.Brush.Color:=clWhite;
  end;  
  DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;这种问题我印象中一个礼拜回答了不下10个了，建议楼主以后先在网络上找找资料，这种代码应该很多的

Answer 5

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
        DataCol: Integer; Column: TColumn; State: TGridDrawState);
  case ADOQuery1.RecNo mod 2 of  //实现效果和CSDN一致
    0: Canvas.Brush.Color:=clSkyBlue;
    1: Canvas.Brush.Color:=clWhite;
  end;  
  DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;这种问题我印象中一个礼拜回答了不下10个了，建议楼主以后先在网络上找找资料，这种代码应该很多的

Answer 6

但是我的query1.Recno的值好象根本就没有改变过始终为-1