机房重构之 .net自带报表
第二阶段【设计报表】
首先在窗体代码页最上面引入2个命名空间
- Imports System
- Imports Microsoft.Reporting.WinForms
- Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
- Dim dt As DataTable
- Dim b_CheckDay As New B_CheckDayLog
- ‘大家可以自己的实际情况查询数据。我这里用了分层,查询的具体实现不在这层。
- If chkEnd.Checked Then
- If chkUser.Checked Then
- ‘获取记录
- dt = b_CheckDay.QueryCheckLog(cmbUserID.Text, dtpStart.Text, dtpEnd.Text)
- Else
- ‘获取记录
- dt = b_CheckDay.QueryCheckLog(dtpStart.Text, dtpEnd.Text)
- End If
- Else
- ‘获取记录
- dt = b_CheckDay.QueryCheckLog(dtpStart.Text)
- End If
- ‘【这里是重点】
- ‘声明一个报表数据源对象
- Dim rptDataSource As New ReportDataSource
- ‘设置报表数据源名称
- rptDataSource.Name = "Check"
- ‘设置报表数据源实例
- rptDataSource.Value = dt
- ‘设置嵌入报表的资源的名称
- ReportViewer1.LocalReport.ReportEmbeddedResource = "UI.CheckDay.rdlc"
- ‘清空报表数据源
- ReportViewer1.LocalReport.DataSources.Clear()
- ‘添加报表数据源
- ReportViewer1.LocalReport.DataSources.Add(rptDataSource)
- ‘设置报表中的参数集合,这里传递的参数,名字大小写必须一致,
- ‘且其本身数据类型必须与报表中定义的数据类型也必须一致。
- Dim params() As ReportParameter =
- {
- New ReportParameter("DateStart", Date.Parse(dtpStart.Text)),
- New ReportParameter("DateEnd", Date.Parse(dtpEnd.Text))
- }
- ‘传递报表中的参数集合
- ReportViewer1.LocalReport.SetParameters(params)
- ‘刷新报表
- Me.ReportViewer1.RefreshReport()
- End Sub
郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。