請教: 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 ??

回复 1楼maco的帖子

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

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

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

回复 3楼maco的帖子

load、export的代码有吗？

我在本地验证一下效果。

附上Source code.

1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
2.         Dim rpt As New SectionReport1
   
3.         rpt.Run()
   
4.         rpt.Document.Save("test.rdf")
   
5. 
   
6.         Dim PDFExport As GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
   
7.         PDFExport = New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
   
8.         PDFExport.Version = GrapeCity.ActiveReports.Export.Pdf.Page.PdfVersion.Pdf17
   
9.         PDFExport.ImageQuality = GrapeCity.ActiveReports.Export.Pdf.Section.ImageQuality.Medium
   
10.         PDFExport.NeverEmbedFonts = ""
    
11.         PDFExport.Export(rpt.Document, "test.pdf")
    
12. 
    
13.     End Sub
    
14. 
    
15.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    
16.         Dim rpt As New SectionReport1
    
17.         rpt.Document.Load("test.rdf")
    
18.         MsgBox(rpt.Label1.Text)
    
19.         rpt.Label1.Text = "After Changed"
    
20.         MsgBox(rpt.Label1.Text)
    
21.         Dim PDFExport As GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
    
22.         PDFExport = New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
    
23.         PDFExport.Version = GrapeCity.ActiveReports.Export.Pdf.Page.PdfVersion.Pdf17
    
24.         PDFExport.ImageQuality = GrapeCity.ActiveReports.Export.Pdf.Section.ImageQuality.Medium
    
25.         PDFExport.NeverEmbedFonts = ""
    
26.         PDFExport.Export(rpt.Document, "test_after_changed.pdf")
    
27. 
    
28.     End Sub

复制代码

回复 5楼maco的帖子

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

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

1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
2.         Dim rpt As New SectionReport1
3.         rpt.Label2.Text = "ABC"
4.         rpt.Run()
5.         rpt.Document.Save("test.rdf")
7.         Dim PDFExport As GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
8.         PDFExport = New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
9.         PDFExport.Version = GrapeCity.ActiveReports.Export.Pdf.Page.PdfVersion.Pdf17
10.         PDFExport.ImageQuality = GrapeCity.ActiveReports.Export.Pdf.Section.ImageQuality.Medium
11.         PDFExport.NeverEmbedFonts = ""
12.         PDFExport.Export(rpt.Document, "test.pdf")
14.     End Sub
16.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
17.         Dim rpt As New SectionReport1
18.         rpt.Document.Load("test.rdf")
19.         MsgBox(rpt.Label1.Text)
20.         rpt.Label1.Text = "After Changed"
21.         MsgBox(rpt.Label1.Text)
22.         rpt.Run()
23.         Dim PDFExport As GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
24.         PDFExport = New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
25.         PDFExport.Version = GrapeCity.ActiveReports.Export.Pdf.Page.PdfVersion.Pdf17
26.         PDFExport.ImageQuality = GrapeCity.ActiveReports.Export.Pdf.Section.ImageQuality.Medium
27.         PDFExport.NeverEmbedFonts = ""
28.         PDFExport.Export(rpt.Document, "test_after_changed.pdf")
30.     End Sub

复制代码

回复 7楼maco的帖子

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