請問一下, 我利用 DBGRID 連結資料庫, 但是希望使用者在輸入 item_p 這個欄位時不管他輸入的數值為何, 都可以將他四捨步入後再寫入資料表, 所以我便在這個 itemp_p 的onValidate 中加入下面的程式碼作為轉換四捨五入的部份, 但是這樣會無窮迴圈耶!請問各位先進有無更好的方法, 謝謝!    <textarea class="delphi" rows="10" cols="60" name="code"> item_p := itemQueryitem_p.asfloat ; item_ps := format('%.2f',[item_p]); itemQueryitem_p.asstring:= item_ps; </textarea>

你好:

建議你...改用 OnSetText Event.

不行耶!這樣根本無法讀到我所輸入的新數字, 他還是會抓到原本資料庫中的數字

而且很奇怪, 我是用 access 且欄位的型態為單精數, 當我輸入12.11 時 grid 上會顯示 12.1099996566772

但事實上資料庫中還事 12.11

很困擾????

參考參考:

procedure TForm3.ClientDataSet1ClientDataSet1Field1SetText(Sender: TField;
const Text: string);
begin
Sender.AsString := Format('%.2f',[StrToFloatDef(Text,0)]);
end;

相對的 OnGetText Event....可以拿來 Format 出你要顯示的 Text

===================引 用 black_eagle1028 文 章===================
請問一下, 我利用 DBGRID 連結資料庫, 但是希望使用者在輸入 item_p 這個欄位時不管他輸入的數值為何, 都可以將他四捨步入後再寫入資料表, 所以我便在這個 itemp_p 的onValidate 中加入下面的程式碼作為轉換四捨五入的部份, 但是這樣會無窮迴圈耶!請問各位先進有無更好的方法, 謝謝! <textarea class="delphi" rows="10" cols="60" name="code"> item_p := itemQueryitem_p.asfloat ; item_ps := format('%.2f',[item_p]); itemQueryitem_p.asstring:= item_ps; </textarea><br />
你把以上三行程式擺在 onValidate 事件中, 當然會造成無窮迴圈,
因為 onValidate 執行到上面第三行時, 你將值再指定給欄位, 又會再觸發 onValidate 一次,
於是就變成無窮迴圈了

如果把這三行放到 BeforePost 事件中, 應該就 Ok 了