请问,如何让DBGRID中为0的字段,不显示0,而显示空白? |
答題得分者是:st33chen
|
daybreak
一般會員 發表:14 回覆:15 積分:5 註冊:2003-11-05 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好,
我想到的方法是, 把要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 發送簡訊給我 |
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,而显示空白?
------
價值的展現,來自於你用哪一個角度來看待它!! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |