Access报表：如何对计算型文本字段进行求和

问题原因 #

Access报表无法直接对报表上的计算型文本字段（如txt_amount_h2）求和，因为这类控件的值是在报表渲染阶段动态计算的，页脚的求和逻辑无法直接捕获这些动态生成的值。

解决方案1：直接在页脚控件中重复计算逻辑 #

跳过对报表文本框的引用，在页脚求和控件中直接写入带Sum()的计算表达式，将空值替换为0（避免求和忽略有效数据）：

txt_sum_h2的控件源设置为：

=Sum(IIf([ALLOCATION_FORMULAR]="H2" Or [ALLOCATION_FORMULAR]="H1/H2" Or [ALLOCATION_FORMULAR]="H2/H3" Or [ALLOCATION_FORMULAR]="H1/H2/H3";[INVOICE_AMOUNT]/[WEIGHTING_FACTOR];0))

注意：原公式中的Oder是拼写错误，需改为Or；空字符串""替换为0，确保未分配的金额不影响求和。

解决方案2：通过VBA事件累加计算 #

利用报表的事件过程逐步累加金额，再赋值给页脚控件：

1. 打开报表的VBA模块，声明私有累加变量：

   Private totalH2 As Double
   

2. 在报表Open事件中初始化变量：

   Private Sub Report_Open(Cancel As Integer)
       totalH2 = 0
   End Sub
   

3. 在Detail节的Format事件中累加符合条件的金额：

   Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
       If [ALLOCATION_FORMULAR] = "H2" Or [ALLOCATION_FORMULAR] = "H1/H2" Or [ALLOCATION_FORMULAR] = "H2/H3" Or [ALLOCATION_FORMULAR] = "H1/H2/H3" Then
           totalH2 = totalH2 + [INVOICE_AMOUNT] / [WEIGHTING_FACTOR]
       End If
   End Sub
   

4. 在报表Footer节的Format事件中，将累加结果赋值给求和控件：

   Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer)
       Me.txt_sum_h2 = totalH2
   End Sub
   

解决方案3：提前在查询中计算分配金额（推荐） #

将分配逻辑转移到报表的数据源查询中，让Access直接基于查询字段求和，稳定性最高：

1. 创建新查询，添加源表的所有字段，并新增计算字段：

   Amount_H2: IIf([ALLOCATION_FORMULAR]="H2" Or [ALLOCATION_FORMULAR]="H1/H2" Or [ALLOCATION_FORMULAR]="H2/H3" Or [ALLOCATION_FORMULAR]="H1/H2/H3";[INVOICE_AMOUNT]/[WEIGHTING_FACTOR];0)
   

2. 将报表的数据源改为这个新查询，原报表上的txt_amount_h2控件源改为[Amount_H2]
3. 页脚求和控件的源直接设置为：

   =Sum([Amount_H2])
   

内容的提问来源于stack exchange，提问作者gmn