[access报表]ACCESS2003报表隔行变色功能

Private shadeNextRow As Boolean
' Const shadedColor = 12632256
' Const shadedColor = 15726583
' Const shadedColor = 14078404
' Const shadedColor = 13356495
Const shadedColor = 65535         '替代阴影的颜色
'Const normalColor = 16777215
Const normalColor = 16776960

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
    On Error GoTo 主体_Format_Error
    If shadeNextRow = True Then
        Me.Section(acDetail).BackColor = shadedColor
    Else
        Me.Section(acDetail).BackColor = normalColor
    End If
    ' 下一行颜色和当前行颜色不同
    shadeNextRow = Not shadeNextRow
主体_Format_Exit:
    Exit Sub
主体_Format_Error:
    MsgBox "Error " & Err.Number & ": " & Err.Description
    Resume 主体_Format_Exit
End Sub