請問要如何把計算後的數值自己新增的欄位中？

引言: 請問要如何把計算後的數值自己新增的欄位中？ class="code"> bQu.First; pie := 0; while not bQu.Eof do begin cQu.First; while not cQu.Eof do begin if cQuSTBNO.Value = bQuSTBNO.Value then pie := pie cQuQTY.Value; cQu.Next; end; // 由於不知道你的bQu是TTable, TQuery或是其他來源, 所以以下只是一個 // 基本型的寫法 bQu.Edit; (或bQu.Append) bQuSAV_PIE.Value:= pie; bQu.Post; bQu.Next; end;

不是很懂唉! 我猜是不是要上面紅色的表示法

bQu.First;
pie := 0;    while not bQu.Eof do
begin
  
  cQu.First;
  
  while not cQu.Eof do
  begin
    if cQuSTBNO.Value = bQuSTBNO.Value then
      pie := pie   cQuQTY.Value;
    
    cQu.Next;
  end;
 
  // 由於不知道你的bQu是TTable, TQuery或是其他來源, 所以以下只是一個
  // 基本型的寫法
  bQu.Edit; (或bQu.Append)
  bQuSAV_PIE.Value:= pie;
  bQu.Post;     
  // 看起來似乎像是 Detail 加總到 Master, 如果是的話可能還要加入一個
  // 歸零的動作
  pie := 0 ;
       bQu.Next;
end;

我使用的是Delphi5.0中的ADOQuery元件，b和c都是使用同一各資料表 我想把上一各bQu中的資料帶入cQu中，在計算出cQu中某各數值的總量後， 在帶回bQu中的計算欄位。 我的意思大約如下： bQu(select * from A) cQu(select * from A) cQu.Append; cQuSTBNO.Value := bQuSTBNO.Value; cQuSTBPIE.Value := bQuSTBPIE.Value; 在bQu中新增一各計算欄位(SAV_PIE); bQu.First; pie := 0; while not bQu.Eof do begin cQu.First; while not cQu.Eof do begin if cQuSTBNO.Value = bQuSTBNO.Value then pie := pie cQuQTY.Value; cQu.Next; end; bQu.Next; end; bQuEdit; bQusav_pie.Value := pie; 我的做法大致如上，我的pie數值有算出來，不過就是代不進去欄位 裡面， 請問：在ADOQuery中的OnCalcFields事件中，變數(pie)是不是不能代入 自己新增的計算欄位(sav_pie)？

引言: 我使用的是Delphi5.0中的ADOQuery元件，b和c都是使用同一各資料表 我想把上一各bQu中的資料帶入cQu中，在計算出cQu中某各數值的總量後， 在帶回bQu中的計算欄位。 我的意思大約如下： bQu(select * from A) cQu(select * from A) cQu.Append; cQuSTBNO.Value := bQuSTBNO.Value; cQuSTBPIE.Value := bQuSTBPIE.Value; 在bQu中新增一各計算欄位(SAV_PIE); bQu.First; pie := 0; while not bQu.Eof do begin cQu.First; while not cQu.Eof do begin if cQuSTBNO.Value = bQuSTBNO.Value then pie := pie cQuQTY.Value; cQu.Next; end; bQu.Next; end; bQu.Edit; bQusav_pie.Value := pie; 我的做法大致如上，我的pie數值有算出來，不過就是代不進去欄位 裡面， 請問：在ADOQuery中的OnCalcFields事件中，變數(pie)是不是不能代入 自己新增的計算欄位(sav_pie)？

抱歉, 沒有看到你後面的回言 oncalcfield 是可以變數代入欄位, 你的程式看似沒有問題, 如果這是你的 oncalcfield全文, 好像最後面少了 bQu.Post; 另外, 這樣的迴圈寫法十分不適用於oncalc事件中, 因為每移動一筆就會重算 一遍, 只要移動1000筆就會脫垮整個資料庫, 如果你的程式有下 post的話, 那建議你用 debug方式檢查最後算出的pie值是 否正確, 或許問題是出在計算有錯的情況下!