显示每个记录颜色值的访问报告

Question

我问过一个类似的问题here，但是现在我想创建一个报告，显示为每条记录输入的颜色值。我已经能够使用用于输入值的部分代码，但是当加载报告时，报告中的所有矩形都显示来自记录 1 的颜色值，而不是每个矩形。

这用于输入值，有效：

Dim A As Variant
A = Split(Textbox1.text,",")
Box1.BackColor = RGB(Int(A(0)),Int(A(1)), Int(A(2)))

我将此代码添加到报告中，针对当前事件、加载事件，但均未生效。也许代码需要转到另一个事件？

如何让报告显示每条记录的颜色？

Answer 1

您的代码必须进入Details 部分的On Format 事件。

请注意，仅当您在“打印”或“打印预览”视图中打开报表时才会触发此事件，而不是在“报表视图”中。