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
mvc架构写水晶报表 vb水晶报表
转载本文章为转载内容,我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题,欢迎原作者联系我们进行内容更正或删除文章。
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
RuoYi整合积木报表
RuoYi整合积木报表
xml spring .net -
水晶报表技术(11)——水晶报表使用小结
水晶报表使用小结
职场 休闲 水晶报表使用小结