ms-access - 详细信息带的格式事件每行执行多次

Question

这是我的代码，用于在数据更改时交替为行着色。当我研究一个异常情况时，某行没有改变它应该改变的位置，我发现 Access 多次查看每行。

为什么它会多次查看数据？

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

Dim test As String

If IsNull(Text158.Value) Then
    pubstrFirstDetaildata = ""
Else
    pubstrFirstDetaildata = Text158.Value
End If

If pubstrFirstDetaildata <> pubstrLastDetaildata Then
    backcolorCount = backcolorCount + 1
    If backcolorCount Mod 2 = 1 Then
        Me.Detail.BackColor = Val("&H" & "EDEDED")
        Me.Box160.BackColor = Val("&H" & "EDEDED")
    Else
        Me.Detail.BackColor = vbWhite
        Me.Box160.BackColor = vbWhite
    End If

End If

If IsNull(Text158.Value) Then
    pubstrLastDetaildata = ""
Else
    pubstrLastDetaildata = Text158.Value
End If
Text177 = backcolorCount
End Sub

Answer 1

Why is it looking at the data more than once?

根据参数列表中的 FormatCount 参数的建议，Detail 带的 Format 事件对于给定的时间可以触发多次记录源中的行取决于呈现报表时发生的情况。例如，如果报表定义了一个或多个组，并且其中一个组启用了“保持在一起”，则一种可能性可能是

• 对于给定行，Format 事件第一次触发，
• 随着报表继续呈现，后续行可能会导致该组溢出到下一页，因此
• 报表会启动一个新页面并“备份”到组的开头以再次格式化这些行。

如果您想确保 Format 事件中的代码每行仅执行一次，那么您可以将其放入 If FormatCount = 1 Then block 中。