進 行 每 頁 的 總 計 是 容 易 的 ， 只 要 加 一 個 字 段 ， 然 后 設 置 字 段 的 SummaryFun屬 性 為 0-Sum， 設 置 SummaryType為 2-PageTotal。 進 行 各 頁 總 計 只 需 將 SummaryType設 為 1-GrandTotal就 可 以 了 。 
    每 頁 累 計 要 稍 微 復 雜 一 些 。 首 先 象 上 面 一 樣 建 立 一 個 每 頁 總 計 字 段 fdPageTotal， 再 建 立 一 個 字 段 fdSum， 不 與 任 何 字 段 捆 綁 。 我 們 假 定 這 兩 個 字 段 都 放 在 PageFooter中 。 切 換 到 代 碼 部 分 ， 在 (General)部 分 定 義 變 量 ： 
    Dim dblSum As Double 
    然 后 輸 入 以 下 代 碼 ： 
    Private Sub ActiveReport_ReportStart() 
     dblSum = 0 
    End Sub 
     
    Private Sub PageFooter_Format() 
     dblSum = dblSum + fdPageTotal 
     fdSum.DataValue = dblSum 
    End Sub 
<END>