Question

delphi中dbgrideh，如果某个批号的其中一个字段变为true，则把该列置为红色。请问，如何实现？

Answer 1

我没安装DBGrideh这个控件, 我用的是D7自带的DBGrid控件。
首要要明确1个事情：设置DBGrid的行颜色, 是通过OnDrawcellcolumn这个事件来触发的, 楼下的只是写了一句代码, LZ根本搞不清楚这个代码要放在哪里运行, 你没有站在LZ的角度去看问题[可能你是高手, 觉得这个没什么必要说], 作为程序员是不是应该尽可能全面的考虑到用户的需求呢？扯远了不好意思~
说说OnDrawcellcolumn这个事件, 这个事件其实Delphi已经帮我们封装好了一些代码, 比如你选中一行的时候这一行会变色, 这个就是D7帮我们已经做好的事情, 相同的, 你要在这个基础上再做一些事情, 那么代码就写在这个事件里面。
TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
With DBGrid1 do begin
if Datasource.DataSet.Fieldbyname('SURE').AsBoolean then Canvas.Brush.Color:=clRed;
//这里还可以继续添加代码实现一些功能
end;
DBGrid1.DefaultDrawcolumncell(rect, datacol, column, state); //这句代码必不可少！！
//这句代码表示让DBGrid继续做他的事, 可以理解为我们只是拦截了这个事件, 附件了上边的代码,加完代码就让他继续做他的事情, 这里的4个参数, 是触发这个事件时自动传入的, 有点像回调函数, 也有点像继承, 也有点像处理消息的时候用到的wndProc, 先不要管他们是什么东西了。
end;

我也是自学Delphi的, 只是自己的一些理解可能不准确, 希望高手指正！！

Answer 2

if adoquery1.fieldbyname('批号').value=True then dbgrideh1.Columns[2].Color:=clRed;