第二阶段【设计报表】@H_403_2@
介绍一些设计报表的工具箱，在VS2010 IDE左侧“工具箱”中的报表项，文本框用于可以显示文字、传递参数。表和矩阵则可以用来存放数据。不同的是表是针对于“列数固定、行数可变的数据”设计的，而矩形则是针对于“列数与行数均可变”的聚合数据设计的。一般数据库中的表字段都为英文，但是显示的时候，都用中文，为了保证数据隐秘，也应该用中文。说说表中的实现，对于行标题，直接修改即可，而数据行可以修改，也可以不修改。数据行由字段占位符构成，可以右击编辑占位符的属性来实现显示中文。在查询报表时，占位符会被真实数据所代替。，也可以编辑表达式，用 ！符号来做找到字段属性。@H_403_2@矩阵跟列表框差不多。@H_403_2@@H_403_2@
矩形可以作为其他报表项的容器，列表则是用于显示每一个组或数据行重复的数据项。列表框可以通过编辑矩形属性,在可见性中绑定报表中的数据项。图像则是用于显示图片的，可以手动导图。@H_403_2@@H_403_2@
对于需要汇总比较数据的用户来说,图表则是你的不二选择。在右侧添加要比较的字段，顶部则添加汇总的项，底部则添加类别字段。仪表则用线性或径性方式来显示数据、字段、表达式等，我们可以针对仪表、仪表刻度、仪表指针、仪表范围的进行数据绑定。@H_403_2@@H_403_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
转载的朋友请说明出处：
http://www.jb51.cc/article/p-uotyjoxr-ts.html