各位偉大的先生/女仕: 當欄位的值為另一些欄位的值運算得來的結果時,是否應使用OnCalcField事件最為合適呢? 我作了一個試練, 有Field A,B,C; C=A B;我在OnCalcField事件下,加入以下Code: with DataSource1.dataset do begin fieldbyname('C').value:=fieldbyName('A').value fieldbyName('B').value; end; 我心想更改A,B的值,C會自動改變,但結果非也!我想請教各位先知,是我對OnCalcField的事件理解不對,還是另有錯誤之處! 謝謝! 1. 思考,放鬆,再思考! 2. 練習,學習,再練習! 3, 請教,改錯,再請教! 4. 創新,改進,再創新!

引言: 各位偉大的先生/女仕: 當欄位的值為另一些欄位的值運算得來的結果時,是否應使用OnCalcField事件最為合適呢? 我作了一個試練, 有Field A,B,C; C=A B;我在OnCalcField事件下,加入以下Code: with DataSource1.dataset do begin fieldbyname('C').value:=fieldbyName('A').value fieldbyName('B').value; end; 我心想更改A,B的值,C會自動改變,但結果非也!我想請教各位先知,是我對OnCalcField的事件理解不對,還是另有錯誤之處! 謝謝! 1. 思考,放鬆,再思考! 2. 練習,學習,再練習! 3, 請教,改錯,再請教! 4. 創新,改進,再創新!

您的用法沒有錯，只是： 您的Field C是Calculated Field也就是您要虛擬一個欄位。 如果不是的話，當然不行。 方法如下：也就是New一Field，Field Type選擇Calculated。 ~小弟淺見，參考看看~

fieldbyName('A')->DBEdit1 fieldbyName('B')->DBEdit2 fieldbyName('C')->DBEdit3 在DBEdit1Exit,然後將DBEdit2.Edit指向DBEdit1Exit. procedure TForm1.DBEdit1Exit(Sender: TObject); begin if DataSource1.dataset.State=dsBrowse then exit; with DataSource1.dataset do begin fieldbyname('C').value:=fieldbyName('A').value fieldbyName('B').value; end; end; TRY TRY SEE

引言: 各位偉大的先生/女仕: 當欄位的值為另一些欄位的值運算得來的結果時,是否應使用OnCalcField事件最為合適呢? 我作了一個試練, 有Field A,B,C; C=A B;我在OnCalcField事件下,加入以下Code: with DataSource1.dataset do begin fieldbyname('C').value:=fieldbyName('A').value fieldbyName('B').value; end; 我心想更改A,B的值,C會自動改變,但結果非也!我想請教各位先知,是我對OnCalcField的事件理解不對,還是另有錯誤之處! 謝謝! 1. 思考,放鬆,再思考! 2. 練習,學習,再練習! 3, 請教,改錯,再請教! 4. 創新,改進,再創新!

Channel兄; 根據你所說的,即是field C並不是數據表中的一個欄,即是dataset里的一個欄對嗎?我並不是很明白,你能否給我一個簡單的例子嗎? 1. 思考,放鬆,再思考! 2. 練習,學習,再練習! 3, 請教,改錯,再請教! 4. 創新,改進,再創新!

Code168, 您好 請參考以下的連結資料，您這個問題前幾天剛好BCB版的資料庫有討論過了。 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30977 ======================= 涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 是非終日有，不聽自然無 天下本無事，庸人自擾之

引言: Channel兄; 根據你所說的,即是field C並不是數據表中的一個欄,即是dataset里的一個欄對嗎?我並不是很明白,你能否給我一個簡單的例子嗎? 1. 思考,放鬆,再思考! 2. 練習,學習,再練習! 3, 請教,改錯,再請教! 4. 創新,改進,再創新!

沒有錯，Field C不是數據表中的一個欄，是DataSet的一個欄，是虛擬一個欄位讓Delphi自動幫您動態計算出結果。 方法如下：

• 對TDataSet(TQuery，TTable)用滑鼠左鍵連續點兩下，帶出Field Editor視窗。
• 用滑鼠右鍵點一下，選擇New Field
• 
• 按照上面的設定即是產生一個虛擬欄位 C
• OnCalcField事件是專門在處理Calculated Field，無法處理實際欄位

  procedure TForm1.Table1CalcFields(DataSet: TDataSet);
  begin
    with DataSet do
      fieldbyname('C').value:=fieldbyName('A').value+fieldbyName('B').value;
  end;
  

~小弟淺見，參考看看~

各位: 你們好,多謝你們的寶貴意見和資料,小弟的疑惑已解.真的不好意思,因為最近有其他事做,未能即時回應各位,請見諒! 1. 思考,放鬆,再思考! 2. 練習,學習,再練習! 3, 請教,改錯,再請教! 4. 創新,改進,再創新!