我想知道如何确保在表单打开时更新我在表单中嵌入的报表,以便在打印预览模式下报表是新鲜的。特别是,我使用此报告来显示我使用矩形形状创建的条形图,这些形状根据绑定到报告的表中的字段中的值进行更改。不幸的是,虽然我有嵌入式报告集的默认视图来打印预览,而代码却改变了在' On格式'上设置的矩形长度。事件,代码不会更新报告。也许on格式事件需要以其他方式触发。以下是我的代码。谢谢
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
Dim sngLunghezza As Single
sngLunghezza = retTotale.Width * txtMedia / 100
retPercentuale.Width = sngLunghezza
If txtMedia < 50 Then
retPercentuale.BackColor = vbRed
Else
retPercentuale.BackColor = vbGreen
End If
End Sub
答案 0 :(得分:0)
我能提供的最好的解决方案是:我认为您编写代码的事件并未触发,一条建议可能是将您的代码设置为报告的开放或加载事件