引言: -我用(上面連結)的方法算balance,當page 2時, 它會把page1的balance接續著加起來,變成(10915.00), (11663.00), 而不是該有的(8000.00), (8748.00).

引言: 一個是TQuickRep的OnBeforePrint事件 例如 BalanceSum := 0; 一個是放Balance 總計 的那個Band 的 onAfterPrint事件 例如 if BandPrinted then begin BalanceSum:=0; end;

T.J.B版主大大你好! 因為小弟是用report builder, 之前也有嘗試過用OnBeforePrint,但不能達到需求(之前連結),所以決定用ClientDataSet來計算balance.當然也不排除其它更快,更有效率的方法,一切以整個report需求為主.

引言: 至於第二個問題建議你用TempTable(暫存檔)的做法做 也就是create一個Report專用的Table 把資料存進去

這也是其中一個小弟想到的方法(Temp Table),因為小弟還是新手, 其實也很想試試看ClientDataSet的用法,所以目前腦里想到的就是用ClientDataSet或Temp Table了,以整個report而言,大大認為那個較適合我呢?ClientDataSet 和 Temp Table小弟都沒做過.

引言:所以您可以在ClientDataSet中, 依據時間和Card ID 排序, 再根據Card ID 不同而重新計算balance.

yachanga大大你好! 小弟用>< face="Verdana, Arial, Helvetica">引言:試試看是否可以在ClientDataSet 加上一個report date , 然後把上面的運算結果填入此欄位. 我想可以先找出此三個table 關係, 用Key value來做join..然後再加以運算. 用Key value來做join是指left outer join之類的嗎, 曾經試過這sql但會很慢(大量data時),我用FieldDefs.Add(‘Report Date’, ftDateTime, 0, FALSE);當我create這個report date之後,想知到要如何把兩個table(tbl invoice和 tbl transaction)的Doc_Date填入呢, 之後還要加上我計算出來的due_date, 所以須要report date = tbl invoice doc_date tbl transaction doc_date due date. 其實小弟也了解自己的表達能力不太好,但又怕寫太多會讓大大們連看都懶得要看,這里小弟再做些補充.

• 小弟想知到如何(一些主要coding)把几個table的field,和自己計算的資料填入一個field(如report date)
• 計算的資料如due date和其它資料應該在什麼事件地方中計算然后再把它填入我create的欄位?每次run時計算能怎樣避免速度太慢?
• 其實還沒真正想過計算的部份(先解決以上兩點),如何計算才是最好,每一次Run時該如和避免重复和能拿到須要的,如計算1-60的instalment可能用戶只要拿4-15的instalment來看

-還不能向老板確定...只好繼續努力了!- 發表人 - chyap99 於 2004/06/14 21:28:03

  還記得這一段嗎?若要在分頁的部份重新計算Balance
// 建立Procedure 供呼叫用
Procedure TForm1.ReCala;
Var
  Bal ,Amount : Real;
  bm : TBookMark;
  cKey : String;; // 判斷分頁用的變數
Begin
  With CDS DO Begin
    mb := GetBookMark;  // 記錄目前指標
    First;
    cKey := '' ;
    While Not Eof Do Begin
      If cKey <> (FieldByName('Document_Date').AsString ' ' 
                       FieldByName('Card_ID').AsString ) Then // Document_Date＋Card_ID不同時要歸零
         cKey := (FieldByName('Document_Date').AsString ' ' 
                 FieldByName('Card_ID').AsString );
        Bal := 0 ;
      End;
      Edit;
      Bal := Bal   FieldByName('Debit').AsFloat-FieldByName('Credit').AsFloat;
      FieldByName('Balance').AsFloat := Bal;
      Post;
      Next;
    End;
    GotoBookMark(bm); // 還原指標
  End;
End;

    提供操作的步驟,如下
1.建立輸出用的資料集(使用TClientDataSet)
  With cds Do Begin
    Close;
    FieldDefs.Add('Card_ID',ftString,20,False);
    ......
    FieldDefs.Add('Type'   ,ftString,10,False);
    FieldDefs.Add('Amount' ,ftFloat ,0,False);
    FieldDefs.Add('Debit'  ,ftFloat ,0,False);
    FieldDefs.Add('Credit' ,ftFloat ,0,False);
    FieldDefs.Add('Balance',ftFloat ,0,False);
    CreateDataSet;
  End;
  // 之後就是開啟的狀態,不要再Open了。    2.開始收集各Table的資料
  // 取得Invoice的資料
  Query1.SQL.text := 'Select * From INVOICE Where ......' ;
  Query1.Open;
  While Not Query1.Eof Do Begin
    CDS.Append;
    CDS.FieldByName('Card_ID').AsString := Query1.FieldByName('Card_ID').AsString;
    CDS.FieldByName(Type').AsString := 'INV';
    ..........
    CDS.FieldByName('Amount').AsFloat := Query1.FieldByName('Amount').AsFloat;
    CDS.Post;
    Query1.Next;
  End;
  // 取得Transation的資料
  Query1.SQL.text := 'Select * From Transation Where ......' ;
  Query1.Open;
  While Not Query1.Eof Do Begin
    CDS.Append;
    CDS.FieldByName('Card_ID').AsString := Query1.FieldByName('Card_ID').AsString;
    CDS.FieldByName(Type').AsString := 'TRN';
    ..........
    CDS.FieldByName('Amount').AsFloat := Query1.FieldByName('Amount').AsFloat;
    CDS.Post;
    Query1.Next;
  End;
  ....
  ....
  ....
  ReCala ; // 計算Balance    

• 在cds里該用什么方法把填入的資料拿出放進Report里?如用戶要選擇10月到12月的data, card_id是yap的?小弟想到的是用filter把要的data拿出, 是這樣嗎?
• 小弟須要算Outstanding(還欠的錢),這讓小弟想了好久…舉例如用戶選擇10月到12月的data for ‘tan’(如圖),report就會把instalment4,5,6的data拿出(amount放在debit =未還), (注:已經給過的payment會儲存在tbl transaction, amount為負數放在credit=已還.) 這時就要找出之前(10月前所有還沒給清的錢-須填為新一欄位),加10月到12月里沒給清的錢,以及加12月后沒給(須要給)的錢成為outstanding.(圖里的outstanding為當用戶還到那期(instalment)時因該會欠的錢,不是小弟要的Outstanding)
• 還要算current(這個月)欠的錢-如以上例子(用戶選擇10月到12月)current為12月欠的錢.
• 30-60days- 為30-60天前(11月)欠的錢.
• 60-90days- 為60-90天前(10月)欠的錢.
• 90-120days-為90-120天前(9月)欠的錢.
• >120days-為>120天前(8月前)欠的錢.

引言:

．一個card_id是可以有几個instalment的,outstanding是算給那card_id的. ．Cds 的欄位可以增加如可方便計算. ．其實大大可不理計算的成式,debit-credit(balance)就是還欠的錢了,小弟只想知到怎樣根據用戶日期的選擇找出之前,現在和之後的欠債.

１．先確定時間點，如１０～１２月，則01/10/2004及31/12/2004是
兩個時間關鍵點,< 01/10/2004 者為之前(或稱期初)兩時間點之間者為目前(或稱本期),兩者彙總的
結果為之後(或稱期末)    ２．使用之前同樣的技巧，建立TClientDataSet，包含主鍵欄位，分頁欄位及期別欄位及借貨和餘額欄位    ３．開始收集各Table的資料
Var
  DD, D1, D2 : TDate;
  SectName : String ;
Begin
  D1 := StrToDate('01/10/2004')
  D2 := StrToDate('31/12/2004')
  // SectID即為期別欄位名
 cds.IndexFieldName := 'Card_ID....;SectID' ; // 先建立動態索引(鍵值及期別，欄位間用';'分開)
  // 取得Invoice的資料
  Query1.SQL.text := 'Select * From INVOICE Where ......' ;
  Query1.Open;
  While Not Query1.Eof Do Begin
    // 判斷日期區間
    DD := Query1.FieldByName('xxxDate').AsDate ;
    If DD < D1 Then  Begin
      SectName := '期初' ; //或直接寫'01/10/2004前' 亦可
    End Else If DD <= D2 Then Begin
      SectName := '本期' ; //或直接寫'01/10/2004~31/12/2004' 亦可
    End Else Begin  // 之後的記錄不用算吧
      Query1.Next;
      Continue;
    End;
    CDS.SetKey;  // 準備搜尋資料(搜尋的欄位必須有建立索引)
    CDS.FieldByName('Card_ID').AsString := Query1.FieldByName('Card_ID').AsString ;
    ......其他鍵值欄位也就是建索引的那幾個欄位
    CDS.FieldByName('SectNo').AsString := SectName;
    If Not CDS.GotoKey Then Begin // 找相同的鍵值
      CDS.Append; //找不到則新增一筆
      CDS.FieldByName('Card_ID').AsString := Query1.FieldByName('Card_ID').AsString ;
      ......其他鍵值欄位
      CDS.FieldByName('SectNo').AsString := SectName;
    End Else Begin
      CDS.Edit;  // 找到則直接進入修改狀態
    End;
    //在此依據帳款別判斷後寫入個別的借貨欄位(注意要用累加的方式)
    CDS.FieldByName('Amount').AsFloat := CDS.FieldByName('Amount').AsFloat  Query1.FieldByName('Amount').AsFloat;
    CDS.Post;
    Query1.Next;
  End;      // 取得Transation的資料
  ．．．．．．

引言: CDS.SetKey; // 準備搜尋資料(搜尋的欄位必須有建立索引) CDS.FieldByName('Card_ID').AsString := Query1.FieldByName('Card_ID').AsString ; ......其他鍵值欄位也就是建索引的那幾個欄位 CDS.FieldByName('SectNo').AsString := SectName; If Not CDS.GotoKey Then Begin // 找相同的鍵值 CDS.Append; //找不到則新增一筆 CDS.FieldByName('Card_ID').AsString := Query1.FieldByName('Card_ID').AsString ; ......其他鍵值欄位 CDS.FieldByName('SectNo').AsString := SectName; End Else Begin CDS.Edit; // 找到則直接進入修改狀態 End;

 
{
    CDS.SetKey;  // 準備搜尋資料(搜尋的欄位必須有建立索引)
    CDS.FieldByName('Card_ID').AsString := Query1.FieldByName('Card_ID').AsString ;
    ......其他鍵值欄位也就是建索引的那幾個欄位
    CDS.FieldByName('SectNo').AsString := SectName;
    If Not CDS.GotoKey Then Begin // 找相同的鍵值
}
  // 以上也可以寫成如下locate的動作
  If Not CDS.Locate('Card_ID....;SectID'
           ,VarArrayOf([Query1.FieldByName('Card_ID').AsString,
                       ..., SectName]),[]) Then Begin
      CDS.Append; //找不到則新增一筆
      CDS.FieldByName('Card_ID').AsString := Query1.FieldByName('Card_ID').AsString ;
      ......其他鍵值欄位
      CDS.FieldByName('SectNo').AsString := SectName;
    End Else Begin
      CDS.Edit;  // 找到則直接進入修改狀態
    End;

引言: 用SetKey必須搭配索引,而用locate則有沒有索引都可以運作只是沒有索引時速度會較慢(資料量愈多慢的愈多...到受不了)若有搭配索引則差不了多少(與setKey比較),其他的稍候....再補充吧!

引言: if SectName= 'before' then begin //找期初...[/green] before := before sqlHpStt.FieldByName('Amount').AsCurrency; CDS.FieldByName('Amount').AsCurrency := before; end;

  改成這樣
// if SectName= 'before' then begin  //找期初...[/green]
    //before := before   sqlHpStt.FieldByName('Amount').AsCurrency;
    CDS.FieldByName('Amount').AsCurrency := CDS.FieldByName('Amount').AsCurrency 
                                           sqlHpStt.FieldByName('Amount').AsCurrency ;
//end;    最後CDS的結果 會如下所示
[Card_ID] [Date] [SectNo] [Doc_No] [Match_Invoice] [Type] [Amount]
YAP       xx/..  befor    .....     .....          ....      9999
YAP       xx/..  after    .....     .....          ....      9999    以目前資料狀況來看似乎[Date]欄位不能,因為此程式的目的即是將日期依時間點的不同,轉化為Befor及After兩個時間區間,所以程式改為如下(把Date從鍵值欄位中去除)    var
DD, D1, D2 : TDate;
SectName : String ;
Begin
  D1 := StrToDate('01/06/2004');//dtpStaDate.Date;
  D2 := StrToDate('01/01/2005');//dtpEndDate.Date;
  sqlHpStt.Close;
  sqlHpStt.Open;
  
  With cds Do Begin
    close;
    FieldDefs.Add( 'Card_ID',ftString, 10, FALSE );
    FieldDefs.Add( 'SectName',ftString, 30, FALSE );
    --------------
    CreateDataSet;
    cds.IndexFieldNames := 'Card_ID;Doc_No;Match_Invoice;Type;SectNo';
    While Not sqlHpStt.Eof Do Begin
      DD := sqlHpStt.FieldByName('Document_Date').AsDateTime;
      If DD < D1 Then  Begin
        SectName := 'before ' DateToStr(D1) ;
      End Else If DD <= D2 Then Begin
        SectName := 'Between ' DateToStr(D1) ' ' DateToStr(D2) ;
      End Else Begin
        sqlHpStt.Next;
        Continue;
      End;        CDS.SetKey; 
    CDS.FieldByName('Card_ID').AsString := sqlHpStt.FieldByName('Card_ID').AsString ;
    CDS.FieldByname('Doc_No').AsString := sqlHpStt.FieldByName('Document_No').AsString ;
    CDS.FieldByname('Match_Invoice').AsString := sqlHpStt.FieldByName('Match_Invoice').AsString ;
    CDS.FieldByname('Type').AsString := sqlHpStt.FieldByName('Document_Type').AsString ;
    CDS.FieldByName('SectName').AsString := SectName;
    If Not CDS.GotoKey Then Begin
      CDS.Append;  // 找不到鍵值則新增一筆記錄
      CDS.FieldByName('Card_ID').AsString := sqlHpStt.FieldByName('Card_ID').AsString ;
      CDS.FieldByName('Date').AsDateTime := sqlHpStt.FieldByName('Document_Date').AsDateTime;
      CDS.FieldByName('SectNo').AsString := SectName;
      CDS.FieldByname('Doc_No').AsString := sqlHpStt.FieldByName('Document_No').AsString ;
      CDS.FieldByname('Match_Invoice').AsString := sqlHpStt.FieldByName('Match_Invoice').AsString ;
      CDS.FieldByname('Type').AsString := sqlHpStt.FieldByName('Document_Type').AsString ;        End Else Begin
      CDS.Edit;
    End;
    // 累加
    CDS.FieldByName('Amount').AsCurrency := CDS.FieldByName('Amount').AsCurrency   sqlHpStt.FieldByName('Amount').AsCurrency;        CDS.Post;
    sqlHpStt.Next;
 //end;
  End;     最後CDS的結果 會如下所示
[Card_ID] [SectName]                      [Doc_No] [Match_Invoice] [Type] [Amount]
YAP       Before 01/06/2004                .....     .....          ....      9999
YAP       between 01/06/2004 01/01/2005    .....     .....          ....      9999

引言: // 累加 CDS.FieldByName('Amount').AsCurrency := CDS.FieldByName('Amount').AsCurrency sqlHpStt.FieldByName('Amount').AsCurrency; CDS.Post; sqlHpStt.Next; //end; End;

 
-------------------------------------------------------------------
(header band)    [card_id] = Yap (page group by card id) 
[outstanding] = 9999 // 本期的最后balance   期末的balance 
------------------------------------------------------------------
(Detail Band)     [Date]     [Doc_No] [Match_Inv] [Type] [Debit] [Credit] [Balance]
                   before B/F                               2000  //期初的總數帶出.  
12/6/2004   …        …          …                  (500)     1500
1/7/2004    …        …          …                  (500)     1000
  …             …        …          …                        …
31/12/2004  …        …          …         200               1200  //本期的最后balance 
----------------------------------------------------------------        

var
  DD, D1, D2 : TDate;
  //  SectName : String ;
  IsFirst : Boolean ; // 是否為期初
  
Begin
  D1 := StrToDate('01/06/2004');//dtpStaDate.Date;
  D2 := StrToDate('01/01/2005');//dtpEndDate.Date;
  sqlHpStt.Close;
  sqlHpStt.Open;
  
  With cds Do Begin
    close;
    FieldDefs.Add( 'Card_ID',ftString, 10, FALSE );
    --------------
    CreateDataSet;
    cds.IndexFieldNames := 'Card_ID;Date;Doc_No;Match_Invoice;Type';
    While Not sqlHpStt.Eof Do Begin
      DD := sqlHpStt.FieldByName('Document_Date').AsDateTime;
      IsFirst := False; // 是否為期初
      If DD < D1 Then  Begin
        DD := D1 ;
        IsFirst := True; // 是否為期初
      End Else If DD > D2 Then Begin
        sqlHpStt.Next;
        Continue;
      End;        If IsFirst Then Begin  // 若為期初資料須先到後再 累加
      CDS.SetKey; 
      CDS.FieldByName('Card_ID').AsString := sqlHpStt.FieldByName('Card_ID').AsString ;
      CDS.FieldByname('Date').AsDateTime := DD;  // <======
      CDS.FieldByname('Doc_No').AsString := sqlHpStt.FieldByName('Document_No').AsString ;
      CDS.FieldByname('Match_Invoice').AsString := sqlHpStt.FieldByName('Match_Invoice').AsString ;
      CDS.FieldByname('Type').AsString := sqlHpStt.FieldByName('Document_Type').AsString ;
      CDS.FieldByName('SectName').AsString := SectName;
      If Not CDS.GotoKey Then Begin
        CDS.Append;  // 找不到鍵值則新增一筆記錄
      End Else Begin
        CDS.Edit;
      End;
    End Else Begin 
      CDS.Append;  // 不是期初資料一律用新增的方式
    End;
    If CDS.State IN [dsInsert] Then Begin
      CDS.FieldByName('Card_ID').AsString := sqlHpStt.FieldByName('Card_ID').AsString ;
      CDS.FieldByName('Date').AsDateTime := DD;
      If IsFirst Then Begin
        CDS.FieldByname('Doc_No').AsString := 'before B/F' ;
        CDS.FieldByname('Match_Invoice').AsString := '';
        CDS.FieldByname('Type').AsString := '';
      End Else Begin
        CDS.FieldByname('Doc_No').AsString := sqlHpStt.FieldByName('Document_No').AsString ;
        CDS.FieldByname('Match_Invoice').AsString := sqlHpStt.FieldByName('Match_Invoice').AsString ;
        CDS.FieldByname('Type').AsString := sqlHpStt.FieldByName('Document_Type').AsString ;
      End;
    End;
    // 累加
    // 加項
    If sqlHpStt.FieldByName('Document_Type').AsString='INV' Then Begin
      CDS.FieldByName('Debit').AsCurrency := CDS.FieldByName('Debit').AsCurrency   sqlHpStt.FieldByName('Amount').AsCurrency;
    End;
    // 減項
    If sqlHpStt.FieldByName('Document_Type').AsString='PAY' Then Begin
      CDS.FieldByName('Credit').AsCurrency := CDS.FieldByName('Credit').AsCurrency   sqlHpStt.FieldByName('Amount').AsCurrency;
    End;        CDS.Post;
    sqlHpStt.Next;
 //end;
  End;     最後重算Balance     

    [Date]     [Doc_No] [Match_Inv] [Type] [Debit] [Credit] [Balance]
1/6/2004                   before B/F                                //期初的總數帶出.
1/6/2004                  before B/F                                
                 … … …     ...       ...                                      
12/6/2004   …        …          …             (500)     1500
1/7/2004    …        …          …             (500)     1000
…            …        …            …                      …
31/12/2005  …        …          …     200               1200  //本期的最后balance 

引言: // 累加 // 加項 If sqlHpStt.FieldByName('Document_Type').AsString='INV' Then Begin CDS.FieldByName('Debit').AsCurrency := CDS.FieldByName('Debit').AsCurrency sqlHpStt.FieldByName('Amount').AsCurrency; End; // 減項 If sqlHpStt.FieldByName('Document_Type').AsString='PAY' Then Begin CDS.FieldByName('Credit').AsCurrency := CDS.FieldByName('Credit').AsCurrency sqlHpStt.FieldByName('Amount').AsCurrency; End;

引言: 小弟測試了之後,before B/F會不斷append(有几個期初的record就會append几個),而小弟只要顯示一個before B/F來把期初的總數帶出,就是所有期初的累加,而不需把期初的每筆record詳敘帶出.

  以上是失誤了!!再試試以下程式     > >{  // 以下省了,只要AsString='INV'AsString='PAY'>

While Not sqlHpStt.Eof Do Begin
..........
if sqlHpSttAmount.Value > 0 then begin
           If IsFirst Then Begin
           CDS.FieldByName('Balance').AsCurrency := CDS.FieldByName('Balance').AsCurrency   sqlHpSttAmount.Value
           End Else Begin
           CDS.FieldByname('Debit').AsCurrency := sqlHpSttAmount.Value ;
           end;
.................................
CDS.Post;
    sqlHpStt.Next;
  End;    //繼續拿取下個所須資料
While Not sqlCIM.Eof Do Begin
    sqlGeneral.SQL.Clear;
    sqlGeneral.SQL.Add(' SELECT SUM(Amount),Match_Invoice FROM AcHPStt WHERE Card_Id = :pCustId AND Match_Invoice = :pMatchDoc GROUP BY Card_Id,Match_Invoice ');
    sqlGeneral.ParamByName('pCustId').AsString := CDS.FieldByname('Card_ID').AsString;
 ............................
    iMonth := sqlCIMTenor.Value;  //供期
    currIntlAmt := CalIntlAmount(currLoan,currTermCharge,iMonth);        for iMonthCount := 1 to iMonth do begin
        currOutStanding := RoundCurrency(CalOutStanding(currLoan,currPrincipal),2);
    DD := IncMonth(sqlCIM.FieldByName('Document_Date').AsDateTime,iMonthCount);
     IsFirst := False;
     If DD < D1 Then  Begin
     IsFirst := True;
      DD := D1 ;
     End Else If DD > D2 Then Begin
      //sqlCIM.Next;      //如有此coding不能加到新欄位
      Continue;
     End;         If IsFirst Then Begin
      CDS.SetKey;
      CDS.FieldByName('Card_ID').AsString := sqlCIM.FieldByName('Card_ID').AsString ;
      CDS.FieldByname('Date').AsDateTime := DD;
      If Not CDS.GotoKey Then Begin
        CDS.Append;
      End Else Begin
       CDS.Edit;
      End;
    End Else Begin
     CDS.Append;
    End;       If CDS.State IN [dsInsert] Then Begin
      CDS.FieldByName('Card_ID').AsString := sqlCIM.FieldByName('Card_ID').AsString ;
      CDS.FieldByName('Date').AsDateTime := DD;
      If IsFirst Then Begin
        .............
        CDS.FieldByName ('Particulars').AsString := 'Balance B/F';
      End Else Begin
.......................
        CDS.FieldByname('Particulars').AsString  := 'Installment# '  inttostr(iMonthCount);
        CDS.FieldByname('Debit').AsCurrency := currIntlAmt;
        End;
      End;
       If IsFirst Then Begin
    CDS.FieldByName('Balance').AsCurrency := CDS.FieldByName('Balance').AsCurrency   currIntlAmt;
   end;
    End;
  CDS.Post;
   sqlCIM.Next;
  End;    ReCala ;

  While Not sqlHpStt.Eof Do Begin // Continue 後會執行此處
    DD := sqlHpStt.FieldByName('Document_Date').AsDateTime;
    IsFirst := False;
     
    If DD < D1 Then  Begin
     IsFirst := True;
     DD := D1 ;
    End Else If DD > D2 Then Begin
     IsLast := True;   //期末時...
     sqlHpStt.Next;
     Continue;   //回到迴圈的起始位繼續執行
    end;        If IsLast Then Begin  //不會執行..
       CDS.SetKey;
       CDS.FieldByName('Card_ID').AsString := sqlHpStt.FieldByName('Card_ID').AsString ;
       CDS.FieldByname('Date').AsDateTime := DD;
       after := after   sqlHpSttAmount.Value; 
    end;
  .......    如上說明,Continue ; 會跳過迴圈內的其他程式碼,直接回到迴圈的開始位置繼續執行,所以後面的 If Islast ..就執行不到了,    以你的需求應該把Continue;拿掉才是(現在才了解你所謂的期末是指截止日之後的所有總合)

While Not sqlHpStt.Eof Do Begin // Continue 後會執行此處
    DD := sqlHpStt.FieldByName('Document_Date').AsDateTime;
    IsFirst := False;
     
    If DD < D1 Then  Begin
     IsFirst := True;
     DD := D1 ;
    End Else If DD > D2 Then Begin
     IsLast := True;   //期末時...
     sqlHpStt.Next;
     //Continue;   //回到迴圈的起始位繼續執行 (拿掉)
    end;

引言: 如把Continue;拿掉,截止日之後的所有record都會Append進報表,但小弟只要拿截止日之後的累加總合.

  要累計加總,就要想辦法讓它有相同的鍵值,以下修改部份就是讓大於D2日期
的記錄,搜尋時使用相用相同的DD日期(=d2 1),而不使用原記錄的日期    While Not sqlHpStt.Eof Do Begin // Continue 後會執行此處
    DD := sqlHpStt.FieldByName('Document_Date').AsDateTime;
    IsFirst := False;
     
    If DD < D1 Then  Begin
     IsFirst := True;
     DD := D1 ;
    End Else If DD > D2 Then Begin
     IsLast := True;   //期末時...
     sqlHpStt.Next;
     DD := D2 1 ; // 加這行
     //Continue;   //回到迴圈的起始位繼續執行 (拿掉)
    end;