子报表Detail_Format重复执行两次致首条记录隐藏的问题排查

问题背景 #

开发家谱数据库报表时，位于主报表Report Footer中的子报表出现异常：原本仅需隐藏最后一位家族成员，但实际首条记录也被隐藏。通过添加行计数器调试发现，子报表的查询结果完整执行了两次（调试输出重复打印1-4），第二次执行时txtPrevGen控件保留了第一次循环最后一条记录的值，导致首条记录被错误隐藏。

相关代码 #

行计数器设置：

txtCount.ControlSource = "=1"  
txtCount.RunningSum = "Over Group"

子报表Detail_Format事件代码：

Debug.Print txtCount

If Nz(txtPrevGen, 0) > 3 Then
    Detail.Visible = False
Else
    txtPerson = DLookup("fldFirstName & ' ' & fldLastName", "tblPeople", "fldID = " & txtPersonID)
End If

txtPrevGen = txtGeneration

调试输出（4条记录时）：

1
2
3
4
1
2
3
4

原因分析 #

这是Access报表引擎的固有行为：

• 报表（尤其是位于Report Footer的子报表）会触发两次Format事件循环：第一次是布局计算阶段（用来确定元素尺寸、分页、整体布局），第二次是实际渲染输出阶段（生成最终预览/打印内容）。
• 你的代码中txtPrevGen作为控件值，第一次循环结束后保留了最后一条记录的Generation值（即4），第二次循环处理第一条记录时，Nz(txtPrevGen,0)等于4，触发隐藏逻辑，导致首条记录被错误隐藏。

解决方案 #

1. 重置状态变量 #

在子报表的Report_Open事件中重置txtPrevGen，确保每次循环开始时初始化为0：

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

2. 利用FormatCount区分布局与渲染 #

通过Detail_Format事件的FormatCount参数，只在实际渲染阶段（FormatCount=2）执行逻辑，避免布局计算阶段的状态污染：

Private prevGen As Integer

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

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Debug.Print txtCount
    
    ' 仅在实际渲染时处理显示逻辑
    If FormatCount = 2 Then
        If prevGen > 3 Then
            Detail.Visible = False
        Else
            txtPerson = DLookup("fldFirstName & ' ' & fldLastName", "tblPeople", "fldID = " & txtPersonID)
        End If
        prevGen = txtGeneration
    End If
End Sub

3. 优化数据查询性能 #

将FullName直接加入子报表的数据源查询，避免重复调用DLookup：
修改子报表的数据源SQL：

SELECT 
    tblPeople.fldID,
    tblPeople.fldGeneration,
    tblPeople.fldFirstName & ' ' & tblPeople.fldLastName AS FullName
FROM tblPeople
WHERE [你的筛选条件];

然后将txtPerson控件的ControlSource设置为FullName，去掉VBA中的DLookup代码。

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