如何改變ADOQUERY的某一字段值的顏色？

發文回覆瀏覽次數：1150

推到 Plurk!

推到 Facebook!

如何改變ADOQUERY的某一字段值的顏色？

sdymgu
一般會員

發表：3
回覆：0
積分：0
註冊：2007-03-22

發送簡訊給我

#1 引用回覆回覆

發表時間：2007-03-27 15:29:40

IP:218.13.xxx.xxx 訂閱

目的：判斷值是否為“false”，將該數據“false”顏色改為紅色（字段為yizhou）

with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('Select name,banji,yizhou from tb);
Open;
end;
for i:=0 to ADOQuery1.RecordCount-1 do
begin
if ADOQuery1.FieldByName('yizhou').AsBoolean=false then
begin
DBGrid1.Canvas.Font.Color:=clred;
end;
end;
運行沒反應。請大俠們糾正
不好意思，水平有限！

hagar
版主

發表：143
回覆：4056
積分：4445
註冊：2002-04-14

發送簡訊給我

#2 引用回覆回覆

發表時間：2007-03-27 15:59:40

IP:59.124.xxx.xxx 未訂閱

寫在 TDBGrid 的 OnDrawColumnCell Event 中:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (DataSource1.DataSet.FieldByName('yizhou').AsBoolean then
Canvas.Brush.Color := clRed;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

系統時間：2024-11-23 1:57:25

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！