如何在activereport中进行累计.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

进 行 每 页 的 总 计 是 容 易 的 ， 只 要 加 一 个 字 段 ， 然 后 设 置 字 段 的 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>