当我在MSAccess表单中使用连续表单时,它会自动将“替代行颜色”应用于其他所有行。
我想为一组数据行提供备用行颜色。
有些组可能只有一行,而另一些则可能不止一行。
我的确有一个表格,其中的整数对每个组递增。
有没有一种方法可以使Access识别表单中的分组,然后在其中应用“替代行颜色”而不是仅在其他所有行中应用替代颜色?
Access无法在UI中识别表单中的分组。(在报告中)
但是,有一个事件的“详细信息”部分,即使没有UI“分组”,也提供了用于格式化的适当钩子。
由于组的索引为整数,并且我们要按组交替,因此仅检查偶数/奇数组并设置背景颜色是很容易的。
我们需要同时强制使用“ Backcolor”和“ AlternateBackColor”。因此,假设组索引放在名为IndexColumnBox的文本框中,它可以是...
Private Sub Detail_Paint()
If Me.IndexColumnBox.Value Mod 2 = 0 Then
Detail.BackColor = &HDDDDDD
Detail.AlternateBackColor = &HDDDDDD
Else
Detail.BackColor = &HFFFFFF
Detail.AlternateBackColor = &HFFFFFF
End If
End Sub
(请注意,该事件是屏幕绘制,而不仅仅是一次生成连续表单。因此,在滚动和使用Form时,每行将多次调用此事件。这意味着具有索引列之类的内容很关键检查是否始终相同。)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句