Office中国论坛/Access中国论坛

标题: 数据表隔行显示不同颜色的问题请教 [打印本页]

作者: 简 时间: 2011-12-9 11:52
标题: 数据表隔行显示不同颜色的问题请教
我想让数据表隔行显示不同颜色，参照论坛上的例子，我也做出这种效果，但现在出现的情况是，当我删除了记录，或者是调整了排序方式，数据表隔行显示的效果就出错了。所以我想问，像这种情况如何处理呢。

还有，如图所示，数据表下面导航栏的记录号是按什么排序的呢，它的代码是多少呢，我想让数据表通过它来隔行显示不同的背景颜色，以解决记录被删除或排序引起的同色情况，可行吗？

[attach]47588[/attach]

作者: roych 时间: 2011-12-9 22:53
本帖最后由 roych 于 2011-12-10 11:02 编辑

   虽然那个例子没看过，不过按我的思路，应该是用Mod函数来判断记录条数来设置的吧？其实也可以单独设置控件而不必拘泥于条件格式。
   今天特意找了下两个例子看了下，比较推荐小宝同志的做法（http://www.office-cn.net/thread-71049-1-1.html）。
yori2007同志则是在控件中写了条件格式（http://www.office-cn.net/thread-62012-1-1.html），根据Dcount来统计第几条记录，判断是否该记录条数的奇偶性，从而处理条件格式。详见附件中子窗体的“序号”控件，这跟我所料没多大出入。
   ——当然，我不知道你所找到的例子是哪个例子。如果按yori2007的做法，记录条数跟自动编号字段是毫无关系的。因此，如果你以自动编号为依据来处理条件格式，增减记录自然会影响条件格式的判断了。

作者: 简 时间: 2011-12-10 16:58

roych 发表于 2011-12-9 22:53
虽然那个例子没看过，不过按我的思路，应该是用Mod函数来判断记录条数来设置的吧？其实也可以单独设 ...

t小宝的方法主要适用于连续窗体，对于数据表似乎不起作用。

yori2007采用的条件格式主要适用于记录较少的数据表，如果记录庞大，数据表采用条件格式，会非常闪的。

我参考的例子见附件。

[attach]47603[/attach]

作者: roych 时间: 2011-12-11 12:33
本帖最后由 roych 于 2011-12-11 15:07 编辑

{:soso_e112:}里面还是用了条件格式，只是用代码实现而已。晚些再看看。
先说说该范例的实现原理：
1、根据自动编号字段，计算当前记录的条数。也就是里面的Rank控件：
=DCount("*","表1","货物ID<='" & [货物ID] & "'")
货物ID为自动编号，自增长类型，因此依次返回1、2、3、4……
2、根据记录所属条数奇偶性，设置条件格式，即里面的当前事件和加载事件代码。代码比较多，这里注释当前事件部分。有需要的话再回帖。

Private Sub Form_Current()
'如出错则跳过，继续执行
On Error Resume Next
'定义当前记录数（即记录导航器中的数值）
Dim cuid As Long
cuid = Me.CurrentRecord
'定义条件格式
Dim objfrc As FormatCondition
Dim ctl As Control
'对所有控件执行条件格式。
For Each ctl In Me.Form.Controls
'更改条件格式1（注意，VB里绝大多数集合都是从0开始的）
'条件格式类型为：表达式。Rank控件为偶数，且并非当前记录时为浅绿色（详见加载事件）
Set objfrc = ctl.FormatConditions(0).Modify(acExpression, , "[Rank] Mod 2 = 0 And [Rank] <>" & cuid & "")
'这个就不解释了，类似于上面。需要注意的是，这两个条件格式顺序不能乱，否则格式会出错。
Set objfrc = ctl.FormatConditions(1).Modify(acExpression, , "[Rank] = " & cuid & "")
Next
End Sub

复制代码

因此，如果需要实现删除前后都能实现条件格式效果的话，请在确认删除后事件中对Rank重新计算：

Private Sub Form_AfterDelConfirm(Status As Integer)
Me.Rank.Requery
End Sub

复制代码

作者: ycxchen 时间: 2011-12-12 09:35
同样关注。

作者: ycxchen 时间: 2011-12-13 09:56
roych 在4楼说的例子的代码是哪个例子的的代码呀？

作者: roych 时间: 2011-12-14 19:26

ycxchen 发表于 2011-12-13 09:56
roych 在4楼说的例子的代码是哪个例子的的代码呀？

是对应3L的例子的。

作者: t小宝 时间: 2011-12-15 12:03
2003版实现数据表隔行变色很麻烦而且效果很不好，能不用尽量不用
2007以上的版本已经内置数据表隔行变色

作者: ycxchen 时间: 2011-12-15 15:32

t小宝发表于 2011-12-15 12:03
2003版实现数据表隔行变色很麻烦而且效果很不好，能不用尽量不用
2007以上的版本已经内置数据表隔行变色

看来，2003的还是少用好。

作者: 简 时间: 2011-12-22 22:45
可是我们公司是指定了用2003版本，如果用2007版本，我担心在与外单位交流时容易因版本问题引起冲突。

作者: 简 时间: 2012-1-31 22:52
我想再问问用过2007版本的朋友们，对于一二十万条的记录，在数据表隔行显示不同颜色中，其效果如何，在拖动滚动条或翻页时屏幕闪不闪呢？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)