通过 VBA MS 访问报告的条件格式不起作用

Question

我在尝试有条件地格式化 MS Access 2007 表单内报告中的记录展示时遇到问题。

我已经在 Internet 上进行了搜索，并且我看到很多 os 研究员指出，可以通过为报告中的 Detail 部分的事件 Paint 实现 Detail_Paint() 方法的代码在单个记录中执行视觉更改。那些人说这样的事情会奏效：

Private Sub Detail_Paint()
    val = CStr(Me.someTextBox.Value)
    If val = "constraint" Then
        Me.lineStrikethrough.BorderStyle = 0
    End If
End Sub

问题是虽然读取语句Me.someTextBox.Value在Paint事件抛出时返回了每条记录的值，但是写入语句Me.lineStrikethrough.BorderStyle = 0 为我的报告中的每一行 写入属性 BorderStyle 的值，而不仅仅是针对我从 someTextBox 字段中读取其值的单个记录的记录。

谁能告诉我为什么会这样？如果这是正确的行为（尽管对我来说似乎不正确），我怎样才能实现我的目标？

注意：lineStrikethrough 用于对报表中的记录执行删除线效果。如果有其他方法可以做到这一点，我很乐意知道。

Answer 1

你真的很亲密！！ :-) 在我的测试中，Detail_Paint() 事件似乎允许您更改控件的格式，但更改将在后续记录中继续，直到您更改/重置他们去别的东西。

在您的代码示例中，您只需添加另一行即可在不再满足条件时重新打开删除线BorderStyle。

Private Sub Detail_Paint()
    Val = CStr(Me.someTextBox.Value)
    If Val = "constraint" Then
        Me.lineStrikethrough.BorderStyle = 0
    Else
        Me.lineStrikethrough.BorderStyle = 1
    End If
End Sub

我在 code sample on MSDN 上找到了这条线索，它演示了使用 Detail_Paint() 方法的条件格式。

Answer 2

两件事：

1 - 使用 Detail 的 On Print 事件而不是 On Paint 事件。

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    val = CStr(Me.someTextBox.Value)
    If val = "constraint" Then
        Me.lineStrikethrough.BorderStyle = 0
    End If
End Sub

2 - 要查看条件格式，请始终在打印预览而不是报告视图中打开您的报告。