[搞定]如何控制dataGrid中某行的字体色[问题]**

atiger

设置断点跟踪，选中和未选中的'DZBJ'值是啥？

yancm

取消以后焦点离开才能变色

新来小职员

如图,似乎都是为0

yancm

楼主，您的图看不出来。您截的图是已经运行到if判断之外了。您看一下运行到else部门的断点后的i值是多少？
另外，怎么变色您已经知道了。状态和颜色之前的对应您自己仔细调试一下应该比和我们这样沟通着调试快些。

新来小职员

可以做个简单的例子放上来么？我实在是不知道为什么了

atiger

DataSource1.DataSet.FieldByName('DZBJ').AsString  = '0'
修改为
DataSource1.DataSet.FieldByName('DZBJ')..AsBoolean

其实就是你的值不对，字符型的 checkbox  表现，实际存储的不是0和1，而是True和False，这你在数据库上看上看一下表的值就知道了

新来小职员

procedure TWLDZ.DataGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
    if DataSource1.DataSet.FieldByName('DZBJ').AsBoolean  = 'true' then
    begin
         AFont.Color := Graphics.clRed;
    end
    else
    begin
         AFont.Color := Graphics.clBlue;
    end;
end;
这样写不对？

atiger

不对，
不是 if DataSource1.DataSet.FieldByName('DZBJ').AsBoolean  = 'true' then
而是  if DataSource1.DataSet.FieldByName('DZBJ').AsBoolean   then

新来小职员

Yeah~终于搞定了,谢谢！！！可以结贴了！

atiger

终于见到太阳了。