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