在SQL 2000 数据库中有一个字段(审核状态)。在stringgrid显示时,当审核状态为‘未审核’是为红色,当审核状态为‘已审核’是为绿色
如果有代码请贴出代码。。谢谢!
在线求高手急。急 急 急 

解决方案 »

  1.   

    在TForm1.StringGrid1DrawCell中写: 
    if StringGrid1.Cells[ACol,ARow]='未审核' then
      StringGrid1.Canvas.Brush.Color :=clRed
    else if StringGrid1.Cells[ACol,ARow]='已审核' then
      StringGrid1.Canvas.Brush.Color :=clGreen; 
      
      

  2.   

    procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    begin
      with TStringGrid(Sender) do
      begin
        if ACol=5 then {5表示"审核"这一列;如果要整行变色,就去掉这一句}
        begin
          if Cells[ARow,ACol]='未审核' then {ACol->5}
             Canvas.Brush.Color:=clRed
          else
             Canvas.Brush.Color:=clGreen;         Canvas.FillRect(Rect);
             Canvas.TextOut(Rect.Left+2,Rect.Top+2,Cells[ACol,ARow]);
        end;
      end;
    end;