有一個回答跟我要問的很類似,但是還是沒辦法幫我解決 http://delphi.ktop.com.tw/topic.php?topic_id=43818 我要做的功能和這一頁累計的地方一樣,但是資料筆數大一點的時候會出錯 當 scroll bar 往下捲的時候沒有問題,只是往上捲的時候加總的數字就不 對了...因為 onCalcField 還是去加總往上拉的那一個欄位值... 請問各位有什麼解決的方法嗎?

Way 1. 使用 TClientDataSet: 新增的計算欄位選用 fkInternalCalc 可一樣設一 private 或 public 變數 在 TClientDataSet 的 BeforeOpen 將該變數歸零 在 TClientDataSet 的 CalcFields 寫:

if VarIsNull(新增的計算欄位.value) then
begin
  計算累計值;
  給值;
end;

Way 2. 使用 TStringList 或動態陣列, 先將累計值算一次, 然後 CalcFields 時改由陣列找值填入

謝謝!可以了,之前也有想過用動態陣列存值再由 CalcFields 時找陣列 無奈傳回來的 RecNo 都是-1 ...

引言: 有一個回答跟我要問的很類似,但是還是沒辦法幫我解決 http://delphi.ktop.com.tw/topic.php?topic_id=43818 我要做的功能和這一頁累計的地方一樣,但是資料筆數大一點的時候會出錯 當 scroll bar 往下捲的時候沒有問題,只是往上捲的時候加總的數字就不 對了...因為 onCalcField 還是去加總往上拉的那一個欄位值... 請問各位有什麼解決的方法嗎?

這問題，在今天我也遇到了… 不過，最後我找到了解決的方法，提出來希望對有需要的大家有所幫助… 如果不想變更使用的 class="code"> var x:integer; procedure TForm1.Query1CalcFields(DataSet: TDataSet); begin x:=x Query1AMT.AsInteger ; //--↓判斷若為Query1的第一筆，則重新載入值(防止累加) if Query1.Bof then begin x:=Query1AMT.AsInteger; end; Query1Total.Value :=x; end; 如此一來，即使動到scroll bar也不成問題了 如有任何意見，希望各位前輩多多指教