'下面是调用存储过程返回DataTable给水晶报表作为数据源，设置数据源后，提示总页数。
Dim conn As New OleDb.OleDbConnection(“连接字符串…”)
conn.Open()
Dim cmd As New OleDb.OleDbCommand()
cmd.Connection = conn
cmd.CommandText = "sp_MachineWorks"
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@MachineId", OleDb.OleDbType总黄酮.Integer).Value = UcMachine.cboMachine.SelectedValue
cmd.Parameters.Add("@dateFrom", OleDb.OleDbType.DBDate).Value = dtpPlanFr
om.Value
cmd.Parameters.Add("@dateTo", OleDb.OleDbType.DBDate).Value = dtpPlanTo.Value
sealed lead acid battery Dim reader As OleDb.OleDbDataReader = cmd.ExecuteReader()
Dim tbl As New DataTable
tbl.Load(reader)
Dim ReportSource = New Rpt配合力1 ‘Rpt1是 为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.化工易ReportPageRequestContext()))
…
