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

来源:http://office.microsoft.com/zh-cn/access-help/HA001219146.aspx#BMcreatingthecode 点击数:14925 　 | 收藏 | 复制

时　间:2012-07-04 08:28:51
作　者:宏鹏 ID：21115 城市：上海
摘　要:适用于ACCESS2003版本，ACCESS2007和ACCESS2010可以通过设置主体“背景色”和“备用背景色”属性实现以上功能。
正　文:

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