Pull模式下的水晶子報表1/24

由於DB為MYSQL資料庫是用ODBC來連接做水晶報表,預覽及Push模式下漢字都會是亂碼,所以偶採用Pull模式
偶在DB中有2張表,這兩張表之間都有一個欄位作共同的關聯,由於每張表筆數可能會有多筆,在用水晶報表處理時就要用到子報表
部分相關代碼如下:

private hierarchicalGroupingReport as reportdocument
2 Pull模式下的水晶子報表1/24

dim dt1,dt2 as datatable
3 Pull模式下的水晶子報表1/24

hierarchicalGroupingReport=new reportdocument
5 Pull模式下的水晶子報表1/24

hierarchicalGroupingReport.Load(Server.MapPath("cr8202.rpt"))
hierarchicalGroupingReport.SetDataSource(dt)
6 Pull模式下的水晶子報表1/24

Dim crsections As Sections = hierarchicalGroupingReport.ReportDefinition.Sections
8 Pull模式下的水晶子報表1/24

Dim crsection As Section
9 Pull模式下的水晶子報表1/24

Dim crreportobjects As ReportObjects
10 Pull模式下的水晶子報表1/24

Dim crreportobject As ReportObject
11 Pull模式下的水晶子報表1/24

Dim crsubreportobject As SubreportObject
12 Pull模式下的水晶子報表1/24

Dim crsubreportdocument As ReportDocument = Nothing
13 Pull模式下的水晶子報表1/24

For Each crsection In crsections
15 Pull模式下的水晶子報表1/24

crreportobjects = crsection.ReportObjects
16 Pull模式下的水晶子報表1/24

For Each crreportobject In crreportobjects
17 Pull模式下的水晶子報表1/24

If crreportobject.Kind = ReportObjectKind.SubreportObject Then
18 Pull模式下的水晶子報表1/24

crsubreportobject = CType(crreportobject, SubreportObject)
crsubreportdocument = crsubreportobject.OpenSubreport(crsubreportobject.SubreportName)
19 Pull模式下的水晶子報表1/24

crsubreportdocument.SetDataSource(dt1)
20 Pull模式下的水晶子報表1/24

End If
21

Next
22

Next
23

crsubreportdocument.Dispose()
26 Pull模式下的水晶子報表1/24

dt1.dispose()
27 Pull模式下的水晶子報表1/24

dt2.dispose()
page_unload事件中:
28 Pull模式下的水晶子報表1/24

hierarchicalGroupingReport.dispose()'此句可以解除或者避免VS2005下水晶報表連續使用次數限制
還有一點要補充的,子報表中顯示的欄位如果秀不出來,請改用公式欄位 Pull模式下的水晶子報表1/24