'代码如下：
Option Compare Database
Option Explicit

Dim i As Integer
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
    i = i + 1
    If i Mod 2 = 0 Then
        Me.主体.BackColor = 12632256
    Else
        Me.主体.BackColor = 16777215
    End If
End Sub