全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1232
推到 Plurk!
推到 Facebook!

请问,如何让DBGRID中为0的字段,不显示0,而显示空白?

答題得分者是:st33chen
daybreak
一般會員


發表:14
回覆:15
積分:5
註冊:2003-11-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-02-28 03:22:35 IP:60.215.xxx.xxx 訂閱
请问,在delphi中,如何让DBGRID中为0的字段,不显示0,而显示空白?
st33chen
尊榮會員


發表:15
回覆:591
積分:1201
註冊:2005-09-30

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-02-28 10:29:38 IP:122.116.xxx.xxx 未訂閱
您好,

我想到的方法是, 把要0顯示成空白的欄位(field)的displayformat 設成 ######### 或 ###,###,### (長度自己拿捏)
做法 :
(假設 dbgrid1 連自 datasource1, datasource1 連自 query1)
doublick query1, 出現 query1 的欄位編輯窗, focus 所需欄位, 在 Object Inspector 中設 displayformat

參考一下囉.
------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
careychen
尊榮會員


發表:41
回覆:580
積分:959
註冊:2004-03-03

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-03-01 10:38:58 IP:59.126.xxx.xxx 訂閱
HI, 您可以試試在 DBGrid 中做手腳

下面兩段程式碼,選擇其中一個來用就行了
這個是使用 DBGrid 的 OnDrawDataCell
[code delphi]
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if Field.Value = '0' then
DBGrid1.Canvas.FillRect(Rect);
end;
[/code]

這個是使用 DBGrid 的 OnDrawColumnCell
[code delphi]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Field.Value = '0' then
DBGrid1.Canvas.FillRect(Rect);
end;
[/code]

===================引 用 daybreak 文 章===================
请问,在delphi中,如何让DBGRID中为0的字段,不显示0,而显示空白?
------
價值的展現,來自於你用哪一個角度來看待它!!
系統時間:2024-05-15 8:46:22
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!