delphi7中设置dbgird的某一个符合条件的单元格的字体或是背景 变成黄色

Question

delphi7中设置dbgird的列 评委1、2、3、4、5 列 如果 其中某个值 以同行的 平均分 列值 相差＋－10 以外则单元格的字体或是背景 变成黄色，如第一行中评委1列值90 与平均分79.2相差超过了10  所以它以黄色显示 ，请指教，最好请给出代码（通过adoquery1来查询里面的数据）单位名称 平均分  评委 1 评委 2 评委 3 评委 4 评委 5
单位1 79.2 90 70 76 80 80
单位2 32.8 34 44 77 4 5
单位3 55.2 45 44 66 56 65
单位4 47.6 45 44 66 78 5

Answer 1

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
　if Table1.FieldByName(’field1’).AsCurrency-Table1.FieldByName(’avg’).AsCurrency>10 then
　　//指定所需改变颜色行的条件表达式
　　DBGrid1.Canvas.Font.Color:=clYellow;
　　//指定颜色为clMaroon
　　DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end; 

Answer 2

呵呵怎么说也是
　if Abs(Table1.FieldByName(’field1’).AsCurrency-Table1.FieldByName(’avg’).AsCurrency)>10 then 

Answer 3

 可是 怎么样 procedure TForm1.DBGrid1DrawColumnCell   才会执行啊，比如说 我点击button1按钮 ？请指教

Answer 4

在dbgrid中的事件里有DrawColumnCell这个是基本常识

Answer 5

dbgrid有个事件叫OnDrawColumnCell，双击就可以出现这个事件的处理函数，然后把代码粘进去

Answer 6

我说的意思是，我改变了里面的 数值之后 ，点击一个刷新按钮，然后dbgrid再按要求变色，那么我在刷新按钮里写什么代码？

Answer 7

这个事件是自动的，当Dbgrid有刷新需要时，自动调用。如果你非要点了按钮再刷新，可以设置一个开关，点了按钮之后，设置一个值,然后在OnDrawColumnCell事件里判断该值，是否需要自己画颜色。

Answer 8

我 把代码 放进去了 编译是 出现 [Error] Unit2.pas(4325): Illegal character in input file: '　' ($A1A1)   这怎么处理啊

Answer 9

不要拷贝网页上的，自己抄一遍，网页上的换行符不符合Delphi编辑器的要求

Answer 10

抄了后还是要看懂语句
　if Table1.FieldByName(’field1’).AsCurrency-Table1.FieldByName(’avg’).AsCurrency>10 then 
这个if很显然没判断列，其实参数中有DataCol和Column表示当前画的单元格是哪一列，把列的条件也给加上

Answer 11

例子代码是个思路，看懂了自己写代码。Column,DataCol变量都可以使用。

Answer 12

Column.FieldName 标记了当前刷新的是哪个fieldif Column.FieldName='评委 1 ' then
    if Table1.FieldByName(’field1’).AsCurrency-Table1.FieldByName(’avg’).AsCurrency>10 then 
    ..................

Answer 13

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (Pos('评委', Column.FieldName) = 1) and//判断是不是评委那个字段对应的列
   (Abs((Column.Field.AsFloat - ADOQuery1.FieldByName('平均分').AsFloat)) > 10) then
  begin
    //指定所需改变颜色行的条件表达式
    DBGrid1.Canvas.Font.Color := clYellow;
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;