设置水晶报表(CrystalReport)数据源并获取总页数

'下面是调用存储过程返回DataTable给水晶报表作为数据源，设置数据源后，提示总页数。

Dim conn AsNew OleDb.OleDbConnection(“连接字符串…”)

conn.Open()

Dim cmd AsNew OleDb.OleDbCommand()

cmd.Connection = conn

mandText = "sp_MachineWorks"

mandType = CommandType.StoredProcedure

cmd.Parameters.Add("@MachineId", OleDb.OleDbType.Integer).Value =

UcMachine.cboMachine.SelectedValue

cmd.Parameters.Add("@dateFrom", OleDb.OleDbType.DBDate).Value = dtpPlanFrom.Value

cmd.Parameters.Add("@dateTo", OleDb.OleDbType.DBDate).Value = dtpPlanTo.Value

Dim reader As OleDb.OleDbDataReader = cmd.ExecuteReader()

Dim tbl AsNew DataTable

tbl.Load(reader)

Dim ReportSource = New Rpt1 ‘Rpt1是.net 为Rpt1.rpt文件自动生成的类.

Me.ReportSource.SetDataSource(tbl)

Me.CRViewer1.ReportSource = ReportSource

Application.DoEvents()

Me.CRViewer1.Zoom(130)

'以下获取总页数，FormatEngine是一个Overridable属性，在代码里输入"."后不会自动提示出来，但是可以正常调用。

MsgBox("test

page:"&Me.ReportSource.FormatEngine.GetLastPageNumber(New CrystalDecisions.Shared.ReportPag eRequestContext()))

…