我想根据字段值内容的不同在dbgridEH中来分颜色显示，怎么总是报错？？？各位大哥进来帮小弟一下！！(20分)

我的代码如下：<br>procedure TfrmBdDetail.DBGridEh1DrawColumnCell(Sender: TObject;<br> &nbsp;const Rect: TRect; DataCol: Integer; Column: TColumnEh;<br> &nbsp;State: TGridDrawState);<br>begin<br> &nbsp;if adoquery1.fieldbyname('合计数量').AsInteger&gt; adoquery1.fieldbyname('KC').AsInteger then<br> &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp; (Sender as TDBGridEH).Canvas.Brush.Color := $008080FF;<br> &nbsp;end;<br> &nbsp;DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State); &nbsp;//这里总是报错：Incompatible types<br>end;

我试了一下可以啊：<br>procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;<br> &nbsp;const Rect: TRect; DataCol: Integer; Column: TColumnEh;<br> &nbsp;State: TGridDrawState);<br>begin<br> &nbsp;if adoquery1.fieldbyname('合计数量').AsInteger&gt; adoquery1.fieldbyname('KC').AsInteger then<br> &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp; (Sender as TDBGridEH).Canvas.Brush.Color := $008080FF;<br> &nbsp;end;<br> &nbsp;DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State); <br>end;<br><br>代码就是你的。<br>我看可能是这样的，你是不是有就的DBGridEh的dcu还保留着？版本不兼容问题？

谢谢楼上的指点 ,我下载了EHLIB 4.14版本就可以了,<br><br>马上放分!

接受答案了.