ADOTable2.FieldByName('单项累计').Asstring :=format('%.3f',[ StrToFloat(Edit6.Text)*StrToFloat(format('%.3f',[strtofloat(Edit8.Text)]))]);
edit6中是单价，已经处理过了保留三位小数。后面的edit8是数量，要处理成三位小数，然后整个的单项累计又处理成保留三位小数。上述的代码是能正确执行的，但看上去老麻烦的，转换来转换去的，不知道是否有更简洁高效的代码？

------
我的编程起步于ktop，我将永远支持ktop

改一些 可參考看看
ADOTable2.FieldByName('单项累计').Asstring :=format('%.3f',[ StrToFloat(Edit6.Text)*strtofloat(Edit8.Text)]);

这样子的话，在数量发生四位数的时候就会可能有一厘钱的误差。

------
我的编程起步于ktop，我将永远支持ktop

小弟有個問題，為何不能用TFeld的DisplayFormat:=#,##0及EditFormat:=#.#來作控制？

------
Kevin

===================引 用 kevin2004 文 章===================
小弟有個問題，為何不能用TFeld的DisplayFormat:=#,##0及EditFormat:=#.#來作控制？
这样子的话在很多地方都要重复设置，维护起来复杂，不如从根源上只改一处就行了。

------
我的编程起步于ktop，我将永远支持ktop

大哥，我真被你弄迷糊了，應該是TField只要設一次就好，而非你現在這個寫法每次都要管這個問題吧？

------
Kevin

前辈，您说的TField是不是指DBGRID中的？

------
我的编程起步于ktop，我将永远支持ktop

我是小弟，不是前輩啦。

我講的TField指的是DataModule裏的AdoQuery1。這裏設好了，到處都可以使用。比如說你要將某DBGrid的資料由某個DataModule-AdoQuery1抓來後以Email發出或轉出到Excel，那你就可以用這個TField的DisplayLabel等資訊，而且凡事用到個TField的Form都可以一起升天，多省事，多好。不論你的系統有多大，只要客戶有什麼要求，只要改一下TField可以馬上辦好。客戶對你公司的反應速度會崇拜的一榻糊塗的。Delphi這種偉大的設計的好處真是講不完。比如說我們公司有套系統，有些客戶要求要顯示角分，但大部份客戶只要顯示到元，這時只要改一下DataModuleOnCreate判斷一下客戶代號再以Code改一下TField就可以了，馬上就好幾萬進帳來了。客戶滿意，我們也不必在幾十萬行的程式碼中上天下地哭爹喊娘了。
雖然Delphi在公司裏已不再是一支獨秀，甚至新案子重心可能已移到Java與.NET，但Delphi還真是方便好用讓人難以忘情。

------
Kevin