//设置DbrowSelect   :=   True   
  特效:   
    纵向斑马线效果:实现网格的奇数列和偶数列分别以不同的颜色显示,以区别相邻的数据列。   
    //在DbGrid的DrawColumnCell事件中编写如下代码:   
    Case   DataCol   Mod   2   =   0   of   
      True:     DbGrid1.Canvas.Brush.Color:=   clBlue;         //偶数列用蓝色   
      False:     DbGrid1.Canvas.Brush.Color:=   clAqua;       //奇数列用浅绿色   
    End;   
    DbGrid1.Canvas.Pen.Mode:=pmMask;   
    DbGrid1.DefaultDrawColumnCell   (Rect,   DataCol,   Column,   State);
为什么点过去效果啊
只有单元格兰色

解决方案 »

  1.   

     DataCol  Mod  2  =  0你这只判断了行,没有行啊,所以只是单元格着色了.我倒有一个笨办法.     Case  (Sender As TDbGrid).DataSource.DataSet.RecNo  Mod  2  =  0  of  
          True:    DbGrid1.Canvas.Brush.Color:=  clBlue;        //偶数列用蓝色  
           False:    DbGrid1.Canvas.Brush.Color:=  clAqua;      //奇数列用浅绿色  
         End;  
        DbGrid1.Canvas.Pen.Mode:=pmMask;  
        DbGrid1.DefaultDrawColumnCell  (Rect,  DataCol,  Column,  State);