if (Column.FieldName='ID') and (Query.FieldByName('ID').Value=1) then
begin
(Sender as TDBGridEh).Canvas.Brush.Color :=clgray;
(Sender as TdbgridEh).DefaultDrawcolumnCell(Rect,Datacol,column,State); //为什么提示Incompatible types,怎么处理?
end;
begin
(Sender as TDBGridEh).Canvas.Brush.Color :=clgray;
(Sender as TdbgridEh).DefaultDrawcolumnCell(Rect,Datacol,column,State); //为什么提示Incompatible types,怎么处理?
end;
Query.FieldByName('ID').Value=1估计你的ID字段不是整形的,或者是允许为空的整形字段改成
Query.FieldByName('ID').AsString='1'
试试