不同的行,用不同的颜色显示.

时　间:2007-10-30 08:20:54
作　者:   ID：16  城市：江阴
摘　要:不同的行,用不同的颜色显示.
正　文:

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

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网软件网制作，感谢"咱家是猫"的帮助