【搞定】关于DBGRID显示地字体颜色问题,急**

oracle0526 · 发表于 2007-11-27 12:00:09

在查询数据时,我想得到如此效果,当物资库存量小于最低库存时,应显示蓝色，大于最高库存时应显示红色。但却没实现，大于最高库存的也显示蓝色。如下图：

oracle0526 · 发表于 2007-11-27 12:04:03

当点击那条数据时才触发，显示红色，而且是整列数据都变红色了。如下图：

oracle0526 · 发表于 2007-11-27 12:04:59

请问怎么改进，我的代码如下。

yancm · 发表于 2007-11-27 14:55:13

主，在事件里面给参数AFont赋值。您给整列赋值啦。

oracle0526 · 发表于 2007-11-27 17:16:01

我这样写不对吗:
if DataGrid.DataSource.DataSet.FieldByName('STOCK_NUM').Asfloat > DataGrid.DataSource.DataSet.FieldByName('topline_num').Asfloat then
DataGridSTOCK_NUM.Font.Color:=$0000FF;
那怎么写啊,不好意思新手.能帮写一下吗?

atiger · 发表于 2007-11-27 17:21:45

http://bbs.justep.com/forum.php?mod=viewthread&tid=2430

oracle0526 · 发表于 2007-11-28 08:40:16

我要的是这种效果,怎么,用你说的那个不能实现啊

lixy · 发表于 2007-11-28 09:22:10

if AColumn.Name<>'stock_num' then Exit;
if a>b then
ACanvas.font.color:=Business.System.Graphics.clRed
else
ACanvas. Font.Color := Business.System.Graphics.clBlack;

oracle0526 · 发表于 2007-11-28 15:45:42

老兄啊
还是不行啊,和我第一次做的效果一样,点击到那条才触发.代码如下:
if AColumn <> DataGridSTOCK_NUM  then  Exit;
  if DataGrid.DataSource.DataSet.FieldByName('STOCK_NUM').Asfloat > DataGrid.DataSource.DataSet.FieldByName('topline_num').Asfloat then
  ACanvas.font.color:=Business.System.Graphics.clRed;
  if DataGrid.DataSource.DataSet.FieldByName('STOCK_NUM').Asfloat < DataGrid.DataSource.DataSet.FieldByName('LOWLINE_NUM').Asfloat then
   //DataGridSTOCK_NUM.Font.Color:=$FF0000 ;//某个字段字体颜色blue
  ACanvas. Font.Color := Business.System.Graphics.clBlue;
而且整列颜色都变了.如图:

lixy · 发表于 2007-11-29 08:53:02

我的也基本是8楼的方法。整列变色，应该是你判断值有问题。

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