[access报表]ACCESS2003报表隔行变色功能-宏鹏专栏

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

效果如下图所示:

请按通常方式设计和创建报表：选择记录源，并在合适的报表节中添加控件和字段。然后在报表的主体节的 Format 事件中输入一些 VBA 代码。该代码会像切换开关一样自动将主体节的背景色在默认颜色和其他颜色之间切换。

附件:

点击下载此附件