数据控制指标判断,根据超出指标,低于指标,符合指标显示不同字体颜色,根据数据审核状态不同显示不同背景颜色,如何实现 如图,上表是用交叉表生成的,要实现的效果如下:1. 如果低于控制指标,显示蓝色。2. 如果高于控制指标,显示红色。3. 如果在控制指标范围内,显示黑色。另外,每个数据都有一个审核状态,已审数据显示白色背景,未审数据显示橙色。以上如何高效完成。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你好,用DBGrid或DBGridEh 你好,用DBGrid或DBGridEh procedure TForm1.DBGridEh2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);begin if VarAsType(Column.Field.Value,varString)='Safety Knife' then begin DBGridEh2.Canvas.Font.Color := clRed;//字体颜色 DBGridEh2.Canvas.Brush.Color := clMoneyGreen;背景颜色 end else if VarAsType(Column.Field.Value,varString)='Flashlight' then DBGridEh2.Canvas.Font.Color := clBlue else DBGridEh2.Canvas.Font.Color := clBlack; DBGridEh2.DefaultDrawColumnCell(Rect,DataCol,Column,State);end;给你个例子参考,你需要具体颜色及内容判断自己可以参考上面。 ADO连接sybase数据库报'msado15.dll'的错,请问为什么啊?如何解决 RAVE报表:程序中打几份报表出问题. 有谁知道南京金思维软件公司怎么样 DBGRID 问题 有关Locate的问题!急!我是刚学的! 关于Frame框架的问题,很菜,(不赊帐哦) 我在一个新建的单元里面要用到self,请问要use什么? 大家看看这句话的意思 ==== 如何获取软驱的状态 ==(是否有软盘) 关于treeview.data不能正确携带数据的问题(急) ACCESS表不允许空字符串,DBEdit如何提交空值 怎么引用不用路径的pas和dcu文件?
你好,用DBGrid或DBGridEh
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if VarAsType(Column.Field.Value,varString)='Safety Knife' then
begin
DBGridEh2.Canvas.Font.Color := clRed;//字体颜色
DBGridEh2.Canvas.Brush.Color := clMoneyGreen;背景颜色
end
else if VarAsType(Column.Field.Value,varString)='Flashlight' then
DBGridEh2.Canvas.Font.Color := clBlue
else
DBGridEh2.Canvas.Font.Color := clBlack;
DBGridEh2.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;给你个例子参考,你需要具体颜色及内容判断自己可以参考上面。