Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
'1.创建报表文件
Dim myReport As ReportDocument = New ReportDocument()
'2.取到报表文件的物理路径
Dim reportPath As String = Server.MapPath("~/RES/secCheckReport.rpt")
'3.加载报表文件
myReport.Load(reportPath)
''准备报表数据源
Dim dtScdPrint As DataTable = SecCheckDec.dtScd
'4自定义报表头部所需要的参数
Dim vOpeAgtName As String = ""
Dim vAwbAgtName As String = ""
Dim vAwbNo As String = ""
Dim vDate As String = ""
Dim vQualification As String = ""
If dtScdPrint.Rows.Count > 0 Then ''打印时只能打印指定运单号的安检申报清单，故取第一条记录获取其中的信息
Dim rowScd As DataRow = dtScdPrint.Rows(0)
vOpeAgtName = SafeString(rowScd.Item("HANDLEAGTNAME"), "")
vAwbAgtName = SafeString(rowScd.Item("OWNERAGTNAME"), "")
vAwbNo = rowScd.Item("AWBPFX") + "-" + rowScd.Item("AWBNUM")
vDate = DateTime.Now.ToString("yyyy-MM-dd")
vQualification = ""
End If
'5将定义好的报表头参数传入报表
'5.1定义ParameterFields
Dim paramfields As ParameterFields = New ParameterFields()
'5.2设置在报表中，将要接受参数字段的名称
Dim pfHash As Hashtable = New Hashtable
pfHash.Add("strOpeAgtName", vOpeAgtName)
pfHash.Add("strAwbAgtName", vAwbAgtName)
pfHash.Add("strAwbNo", vAwbNo)
pfHash.Add("strDate", vDate)
pfHash.Add("strQualification", vQualification)
For Each item As System.Collections.DictionaryEntry In pfHash
Dim paramfield As ParameterField = New ParameterField()
Dim p_arg As ParameterDiscreteValue = New ParameterDiscreteValue()
paramfield.ParameterFieldName = item.Key.ToString()
p_arg.Value = item.Value.ToString()
paramfield.CurrentValues.Add(p_arg)
paramfields.Add(paramfield)
Next
'6.将参数集合绑定到报表浏览控件
Me.CrystalReportViewer1.ParameterFieldInfo = paramfields
'7.为报表设置新的数据源
myReport.SetDataSource(SecCheckDec.dtScd)
'8.将创建你的新的报表文档绑定
Me.CrystalReportViewer1.ReportSource = myReport
Me.CrystalReportViewer1.DataBind()
Catch ex As Exception
Call (New CargoException("", ex)).AppendToLog()
End Try
End Sub
End Class