在数据表视图中,能不能用不同的颜色显示不同的行?

Private Sub Form_Load()
On Error Resume Next
    Dim objfrc As FormatCondition
    Dim ctl As Control
    For Each ctl In Me.Form.Controls
        ctl.FormatConditions.Delete
        Set objfrc = ctl.FormatConditions.Add(acExpression, , "[Rank] Mod 2 = 0")
        ctl.FormatConditions(0).BackColor = -2147483633
    Next
End Sub

'示例制作：运用代码书写条件格式，让数据表窗体呈不同颜色交替显示
'制作人员：Accosft
'制作时间：2007年4月22日
'说    明：参考accessoft网软件网制作，感谢"咱家是猫"的帮助