Var
 balance: Real;    procedure TForm1.Query1CalcFields(DataSet: TDataSet);
Var
 amount:real;
begin
 amount:=Query1.FieldByName('AMOUNT').AsFloat;
 if Query1amount.Value>0 then begin
  Query1debit.Value:=amount;
  balance:=balance+amount;
 end
 else begin
  Query1credit.Value:=abs(amount);
  balance:=balance-abs(amount);
 end;
 Query1balance.Value:=balance;    end;

Var 
  Bal : real;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Ba1:=0; //Reset 總合
 query.Close;
 query.Open;
end;    procedure Form1.queryCalcFields(DataSet: TDataSet);
Var
 amount : real;
begin     amount:=query.FieldByName('Amount').AsCurrency;
 if queryAmount.Value > 0 then begin
  queryDebit.Value := amount;
  Bal := Bal   amount;
 end
 else begin
  queryCredit.Value := abs(amount);
  Bal := Bal - abs(amount); {47600- |-794|= 47600-794} 
 //這樣比較保險 
 end;     queryBalance.Value := Bal;
 showmessage(currtostr(Bal));     if (queryDocument_Type.Value = 'INV') then
  begin
   queryStatus.Value := 'Hire Purchase';
  end;     if (queryDocument_Type.Value = 'HP') then
  begin
   queryStatus.Value := 'Payment';
  end;
end;    

引言: 謝謝yachanga大大的回复, 我看了大大給的source code, 然后在我的program加了個DBGrid, 用DBGrid顯示時并無錯誤, 但是用report builder 的report.print來看, balance就不對了!我想是因為當程序進入report時會loop很多次,導致它的balance變得很大,但是我該怎樣做才能在report里拿到正確的balance呢?我還是做不到...

Hi chyap99您好: 原來您是在Report Builder 上使用會有問題, 下次要早說喔 小弟只用過 class="code"> procedure TForm1.Button2Click(Sender: TObject); begin Query1.Close; Query1.Open; quickrep1.Preview; // Preview 報表 end; procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin balance:=0; //加上此句 就OK end; 您可參考小弟執行檔說明 要有裝QuickReport V3.6.2 才可以Compile喔~~ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=50922 ~悠遊法國號~

引言: OnCalcFields will fire each time the record position changes in the dataset. OnCalcFields會在資料集的記錄指標移動後發 You should only use this event to perform a calculation that depends on data field values in the same record. Never use this event to perform calculations across records. If you build an examples that scrolls back and forth thru the dataset, you will see that the calculations break. 在OnCalcFields事件只可以針對相同記錄中的欄位值做運算,不可作跨記錄的運算,你可以用個dbGrid然後往前往後移動指標看看,就會看到計算欄位的值被破壞了(以你的例子就會看到Balance一直的在累加(或累減)) ReportBuilder does not simply traverse the dataset from front to back ReportBuilder 並不是很單純的從資料集的第一筆到最後一筆跑一遍而已

  cds : TClientDataSet ; // 放在Form上面,就不用說明動態建立的方式    // 建立Procedure 供呼叫用
Procedure TForm1.ReCala ;
Var
  Bal ,Amount : Real;
  bm : TBookMark;
Begin
  With CDS DO Begin
    mb := GetBookMark;  // 記錄目前指標
    First;
    Bal := 0 ;
    While Not Eof Do Begin
      Edit;
      Bal := Bal   FieldByName('Debit').AsFloat-FieldByName('Credit').AsFloat;
      FieldByName('Balance').AsFloat := Bal;
      Post;
      Next;
    End;
    GotoBookMark(bm); // 還原指標
  End;
End;      // 從Query.Open後開始交給TClientDataSet來處理
  query.Open;
  Bal := 0 ;
  With cds Do Begin
    FieldDefs := Query.FieldDefs ;  // 繼承資料結構
    CreateDataSet; // 建立記憶體資料表
    While Not Query.Eof Do Begin
      Append;
      For i:=0 To FieldsCount-1 Do Begin
        Fields[i].Value := Query.Fields[i].Value; // 因為結構相同所以
      End;
      if QueryAmount.Value > 0 then begin
        FieldByname('Debit').AsFloat := QueryAmount.Value ;
      end else if QueryAmount.Value < 0 then begin
         queryCredit.Value := abs(QueryAmount.Value );
      End;
      Post;
      Query.Next;
    End;
    First;
  End;
  ReCala ; // 呼叫ReCala計算一次     另外如果有確定排序欄位後可以如下方式重新計算    // 建立動態索引,若需要降冪排序,可以cds.AddIndex方法建立(具體做法可在本站找到範例)
cds.IndexFieldNames := 'Date;Doc_No'; // 依Date Doc_No排序或是'Doc_No;Date'亦可，隨你。
ReCala ; // 呼叫ReCala重新計算一次     最後交給ReportBuilder輸出時，已是最後的結果，ReportBuilder只要照資料輸出即可。

引言: 引言: 謝謝yachanga大大的回复, 我在ReportBuilder元件的BeforePrint事件中將balance reset為0, 還是拿不到對的balance, 我想是因為ReportBuilder的loop法不同吧,我在ReportBuilde web site拿到的解釋如下(不翻譯因為我也看不太懂) 不知大大有什麼意見呢?我想如OnCalcFieldsz再做不到就試用variable的onCalc了, 但這方法對我來說不太好因為怕user把variable delete掉...而且也不知能不能.

procedure TForm1.ppDBdebitGetText(Sender: TObject; var Text: String);
begin
 if StrToFloat(text)<0 then
  text:='';
end;    procedure TForm1.ppDBcreditGetText(Sender: TObject; var Text: String);
begin
 if StrToFloat(text)>=0 then
  text:=''
 else
  text:= FloatToStr(abs(StrToFloat(text)));
end;

引言: run時會有missing data provider or data packet(小弟不知如何set provider), Invalid value for 'rate'(rate的格式是number,如1.0) ,invalid variant type conversion (如某個field里并無record,就會有此error). 公司目前有兩個system,目前小弟須用的是給舊的,用delphi 3, 因為如此, 可能也會造成很多麻煩.希望大大們能多加指點!

Var
  i : Integer ;
  fn : String ;
begin
  sqlHpStt.Open;
  With cds Do Begin
    Close;  // 先行關閉,免得第二次執行時未關閉會觸發錯誤
    FieldDefs := sqlHpStt.FieldDefs ;  // 繼承資料結構(不含計算欄位)
    FieldDefs.Add('Debit'  ,ftFloat,0,False);  // 此三個計算欄位自行加進去
    FieldDefs.Add('Credit' ,ftFloat,0,False);
    FieldDefs.Add('Balance',ftFloat,0,False);
//    Open;  // 千萬不要用Open (因為要建立記憶體資料表)
    CreateDataSet; // 使用這個建立記憶體資料表
    While Not sqlHpStt.Eof Do Begin
      Append;
      For i:=0 To sqlHpStt.FieldCount-1 Do Begin
        fn := sqlHpStt.Fields[i].FieldName ; 
        // 為免那欄位結構不同所以加以檢查,有相同欄位名稱者才複製資料
        If FindField(fn) <> nil Then 
          FieldByName(fn).Value := sqlHpStt.Fields[i].Value; 
      End;
      //一般個人的習慣是存取欄位位值使用.Asxxxx而不用.Value
      if sqlHpSttAmount.Value > 0 then begin
        FieldByname('Debit').AsFloat := sqlHpSttAmount.Value ;
      end else if sqlHpSttAmount.Value < 0 then begin
         FieldByname('Credit').AsFloat:= abs(sqlHpSttAmount.Value );
      End;
      Post;
      sqlHpStt.Next;
    End;
    First;
  End;
  sqlHpStt.Close; // 沒用了可以關閉
  ReCalc; // 最後計算一次Balance
end;

引言: 謝謝yachanga大大和版主Chance36, 在report builder的page得到兩個意見: -------------------------------------------------------------------- Try using a summary dataset. Either use SQL to create a summary query that contains the calculated results or perhaps pre-process the data to build a temp table that contains the summarized calcs. Then use DBText inside the report. --------------------------------------------------------------------- 小弟試過用temp table, 但資料太大時讀取會變慢,要insert,select再delete.另一個方法應該將像版主所提的..

Hi chyap99 您好: 依據您的需求 , 的確用ClientDataSet會比較好.. 可參照Chance36版大的觀念.. 部分資料因應您的需求可稍微修改..Chance36版大別生氣喔 < class="code"> procedure TForm1.OpenDataSet; Var i : Integer ; fn : String ; amount,balance: Real; begin balance:=0; sqlHpStt.Open; With cds Do Begin Close; FieldDefs := sqlHpStt.FieldDefs ; FieldDefs.Add('Debit' ,ftFloat,0,False); FieldDefs.Add('Credit' ,ftFloat,0,False); FieldDefs.Add('Balance',ftFloat,0,False); CreateDataSet; While Not sqlHpStt.Eof Do Begin Append; For i:=0 To sqlHpStt.FieldCount-1 Do Begin fn := sqlHpStt.Fields[i].FieldName ; If FindField(fn) <> nil Then FieldByName(fn).Value := sqlHpStt.Fields[i].Value; End; amount:=sqlHpStt.FieldByName('Amount').Value; balance:=balance amount; if amount > 0 then FieldByname('Debit').AsFloat := amount else if amount < 0 then FieldByname('Credit').AsFloat:= abs(amount); FieldByname('Balance').AsFloat :=balance; //直接在裡面計算, 不用另外再呼叫一個函數~~ Post; sqlHpStt.Next; End; End; sqlHpStt.Close; end; 根據您的問題的詳細原始碼請參考小弟的範例 ClientDataSet DBGrid QuickReport ReportBuilder http://delphi.ktop.com.tw/topic.php?TOPIC_ID=50922 有關ClientDataSet 更多範例可參考JustMade版大黃金文章 【發表】ClientDataSet 簡單範例 http://delphi.ktop.com.tw/topic.php?topic_id=28513 發表人 - yachanga 於 2004/06/03 09:56:28

引言: 部分資料因應您的需求可稍微修改..Chance36版大別生氣喔 < face="Verdana, Arial, Helvetica"> 在悅耳悠揚法國號的樂聲中,怎麼會生氣呢?更何況我早已忘了[生氣]是什麼樣的情緒反應。 為什麼計算Balance的部份要另寫一個函數處理呢?因為會重複使用,如chyap99 兄所言,在取得資料後,使用者還可以決定排序的欄位,然後再依排序後的結果,產生一次Balance的值,所以才會加個函數來處理。

引言:為什麼計算Balance的部份要另寫一個函數處理呢?因為會重複使用,如chyap99 兄所言,在取得資料後,使用者還可以決定排序的欄位,然後再依排序後的結果,產生一次Balance的值,所以才會加個函數來處理。