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