我應如何顯示TADOQuery的6個位的小數 |
|
尚未結案
|
|
szhc
一般會員   發表：4 回覆：10 積分：2 註冊：2005-11-07 發送簡訊給我 |
|
|
kgt
高階會員  發表：17 回覆：308 積分：165 註冊：2002-03-13 發送簡訊給我 |
|
|
malanlk
尊榮會員 發表：20 回覆：694 積分：577 註冊：2004-04-19 發送簡訊給我 |
|
|
tonytop
中階會員 發表：6 回覆：114 積分：89 註冊：2003-12-04 發送簡訊給我 |
使用ADOQuery右鍵的field editor...中，add all field之後，選要show六位數的欄位，檢查Precision欄位值是否太小，將值加大一點看看，另外也可在GetText的事件中加入指令如下，但您說AsString也沒用，應該是Precision的問題。
procedure TForm1.ADOQuery1a1GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text:=Format('.6f',[StrToFloat(Sender.AsString)]);
end; <[忙盲茫]>
☆俺要升級啊☆
|
|
szhc
一般會員 發表：4 回覆：10 積分：2 註冊：2005-11-07 發送簡訊給我 |
tonytop / kgt ：
我按你們的方法試了一下。
但還是不行。下面是我設定的程式。 object ADOQuery1a: TBCDField
AutoGenerateValue = arAutoInc
FieldName = 'a'
DisplayFormat = '#,##0.000000'
Precision = 24
Size = 18
end a=0.123456789(原來）
但秀出來的是:"0.123500" malanlk ： http://www.marcocantu.com/code/md6htm/DbxMulti.htm#DbxMultiForm.pas
中的“TFMTBCDField”是什麼來的，看不懂啊~
|
|
malanlk
尊榮會員 發表：20 回覆：694 積分：577 註冊：2004-04-19 發送簡訊給我 |
|
|
kgt
高階會員 發表：17 回覆：308 積分：165 註冊：2002-03-13 發送簡訊給我 |
|
|
szhc
一般會員 發表：4 回覆：10 積分：2 註冊：2005-11-07 發送簡訊給我 |
|
|
RedSnow
版主 發表：79 回覆：1322 積分：845 註冊：2003-12-15 發送簡訊給我 |
szhc 您好： 將 ADOTable 元件的 EnableBCD 屬性設為 false 應該可解決這個問題，請參考下列討論：
怎樣處理浮點數
http://delphi.ktop.com.tw/topic.php?topic_id=36578 資料庫 float 格式存取問題
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=81211
7 天天敲鍵盤 v 時時按滑鼠 8
|
|
szhc
一般會員 發表：4 回覆：10 積分：2 註冊：2005-11-07 發送簡訊給我 |
發表時間：2005-11-18 17:36:18
IP:218.18.xxx.xxx 未訂閱
系統時間：2024-11-25 2:34:26
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |