請教: ActiveReports 7 可否先將一份report 先cache 後再修改data

收藏

你好,

我想請教一下, ActiveReports 7 可否先將一份generate 了的report 先cache 後再修改data.
再將他export to PDF..

因為我有一份report 要generate 大約60 分鐘. 因為同一份report 要同時generate 要給不同的人, 但只是在page header 部份更改一個label 的data. 的, 而內容是一樣的.

所以請教可以將第一次generate 這份report 時.. 先將這份report cache .. 再修改page header 之後才export to PDF ??

roger.wang · roger.wang

回复 1楼maco的帖子

请问，您用的是什么报表：Page还是Section报表？

Section报表的话，可通过RDF 的方式实现cache，详细可参考：
ActiveReports 7 > ActiveReports User Guide > How To > Section Report How To > Save and Load RDF Report Files

maco · maco

我嘗試過.是可以cache 的. 但是. 當我load 回這個RDF 之後.. 再change 里面Label 的Text 之後.. 我在debug mode 看到它已經給修改了.. 但是當export 出來的PDF. 還是舊的data.

roger.wang · roger.wang

回复 3楼maco的帖子

load、export的代码有吗？

我在本地验证一下效果。

maco · maco

附上Source code.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rpt As New SectionReport1
rpt.Run()
rpt.Document.Save("test.rdf")
Dim PDFExport As GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
PDFExport = New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
PDFExport.Version = GrapeCity.ActiveReports.Export.Pdf.Page.PdfVersion.Pdf17
PDFExport.ImageQuality = GrapeCity.ActiveReports.Export.Pdf.Section.ImageQuality.Medium
PDFExport.NeverEmbedFonts = ""
PDFExport.Export(rpt.Document, "test.pdf")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim rpt As New SectionReport1
rpt.Document.Load("test.rdf")
MsgBox(rpt.Label1.Text)
rpt.Label1.Text = "After Changed"
MsgBox(rpt.Label1.Text)
Dim PDFExport As GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
PDFExport = New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
PDFExport.Version = GrapeCity.ActiveReports.Export.Pdf.Page.PdfVersion.Pdf17
PDFExport.ImageQuality = GrapeCity.ActiveReports.Export.Pdf.Section.ImageQuality.Medium
PDFExport.NeverEmbedFonts = ""
PDFExport.Export(rpt.Document, "test_after_changed.pdf")
End Sub

复制代码

roger.wang · roger.wang

回复 5楼maco的帖子

在这行代码 rpt.Label1.Text = "After Changed"后，添加rpt.Run()试试。

maco · maco

如果是這樣子的話... Label2 的data 會被reset.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rpt As New SectionReport1
rpt.Label2.Text = "ABC"
rpt.Run()
rpt.Document.Save("test.rdf")
Dim PDFExport As GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
PDFExport = New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
PDFExport.Version = GrapeCity.ActiveReports.Export.Pdf.Page.PdfVersion.Pdf17
PDFExport.ImageQuality = GrapeCity.ActiveReports.Export.Pdf.Section.ImageQuality.Medium
PDFExport.NeverEmbedFonts = ""
PDFExport.Export(rpt.Document, "test.pdf")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim rpt As New SectionReport1
rpt.Document.Load("test.rdf")
MsgBox(rpt.Label1.Text)
rpt.Label1.Text = "After Changed"
MsgBox(rpt.Label1.Text)
rpt.Run()
Dim PDFExport As GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
PDFExport = New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
PDFExport.Version = GrapeCity.ActiveReports.Export.Pdf.Page.PdfVersion.Pdf17
PDFExport.ImageQuality = GrapeCity.ActiveReports.Export.Pdf.Section.ImageQuality.Medium
PDFExport.NeverEmbedFonts = ""
PDFExport.Export(rpt.Document, "test_after_changed.pdf")
End Sub

复制代码

roger.wang · roger.wang

回复 7楼maco的帖子

抱歉，动态修改的值，无法保存为rdf文件。

		自动登录	找回密码
密码			立即注册

[已处理] 請教: ActiveReports 7 可否先將一份report 先cache 後再修改data

7 个回复

本帖子中包含更多资源

活字格认证

微信认证勋章

元老葡萄