我想指定某欄位若數值小於多少就顯示紅色
那我就寫以下的SQL,可是程式告訴我找不到這各"組裝直通率"
WHY ???

我搜尋貴站很多上色問題都沒我要的解答耶

csTemp5~7 是 ClientDataSet


[code delphi]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);

begin
if (csTemp5.FieldByName('組裝直通率').AsString < '96%') then
StringGrid1.Font.Color := clRed
else
if (csTemp6.FieldByName('測試直通率').AsString < '96%') then
StringGrid1.Font.Color := clRed
else
if (csTemp7.FieldByName('包裝直通率').AsString < '96%' ) then
StringGrid1.Font.Color := clRed


end;
[/code]

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

編輯記錄

如果你要那一行變顏你可以試試
而如果你要的是某一個Cell那你要多一些判定

下面的例子，那是雙行變色，變紅色
[code delphi]
if (ARow mod 2) = 0 then //要改成你自已要的！
(Sender as Tstringgrid).Canvas.Brush.Color := clInfoBk
else
(Sender as Tstringgrid).Canvas.Brush.Color := clred;
(Sender as Tstringgrid).Canvas.FillRect(Rect);

[/code]

------
初學、初學、學了很久...還是在初學階段..Orz

編輯記錄

給你一個方向, 你所要的是針對每一個CELL上色, 非整組(StringGrid.Color)
1. private 下引用一組二維陣列與StringGrid 同大小
arygrid: array)10,10) of TColor;
2.在你的SQL判斷式下, 取出直通率的結果, 同時一個重點, 你必須知道要上色的直通率CELL值
例如 StringGrid1.Cell[3,5], 則設定 arygrid[3,5]:= clRed

3.最重要的是你必須在 StringGrid 的 onDrawCell事件上來上色
begin
for c:= 0 to 9 do begin
for r:= 0 to 9 do begin
Canvas.Brush.Color:= arygrid[c,r]; // 這是要cell上色
Canvas.Font.Color:= arygrid[c,r]; // 這是要字體上色 (與上兩者選一)
next;
next;
.Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left,Rect.Top,Cells[ACol,ARow]); //output text
end;

大致是如此, 不過我沒有實作過, 你自己run

感謝兩位大大的指導 我找到方向了...^^

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet