【结贴】出错了**

水晶 · 发表于 2008-8-27 14:51:26

我在DataGrid1的onCustomDrawCell事件里写了这个代码
  if TDataGridColumn(AColumn).FieldName= 'repice' then
  begin
if TDataGridColumn(AColumn).ColumnDef.Field.DataSet.
   FieldByName('repice').Asstring.trim = '0' then
   AFont.Color := Business.System.Graphics.clRed
  end ;
时,运行的时候会出现如下图的错误,请问是哪里出错了!!

水晶 · 发表于 2008-8-27 14:53:16

补充:这个代码的用途主要是要让,datagrid1中的repice字段,当它值为0的时候,字体颜色成红色!

lixy · 发表于 2008-8-27 14:57:31

去掉.trim 试试

水晶 · 发表于 2008-8-27 15:02:09

还是不行

水晶 · 发表于 2008-8-27 15:15:58

我自己找出原因了,结帖

lixy · 发表于 2008-8-27 15:30:05

？？

水晶 · 发表于 2008-8-27 15:33:17

我把代码改了,在前面多添加了句判断的:if not datasetoutdetail.IsEmpty then

lixy · 发表于 2008-8-27 15:47:54

谢谢反馈

		自动登录	找回密码
密码			立即注册