VB.NET版机房重构---“报表”之旅

概述在第一次机房的时候，由于VB没有自带的报表，所以我们用的是第三方 的报表控件！设计这个报表真是用了我很多的时间！这次重构中，.net版的开发环境VS中就提供了一个现成的报表控件，再经过和数据库的绑定就可以了，不用写多余的代码，这样很是方便，所以下面让我们来见识一下！ 第一步： 添加报表控件，在工具箱中： 第二步： 我们要明白，这只是添加了一个报表控件，而真正的报表我们还没有绑定到这个控件上！接下来

在第一次机房的时候，由于VB没有自带的报表，所以我们用的是第三方 的报表控件！设计这个报表真是用了我很多的时间！这次重构中，.net版的开发环境VS中就提供了一个现成的报表控件，再经过和数据库的绑定就可以了，不用写多余的代码，这样很是方便，所以下面让我们来见识一下！

第一步：
添加报表控件，在工具箱中：

第二步：
我们要明白，这只是添加了一个报表控件，而真正的报表我们还没有绑定到这个控件上！接下来就是绑定真正的报表： 右击U层添加新建项，然后从里面选择报表这一项：如图：
然后得到如下图的效果：

第三步：连接数据库：右击数据集---添加数据集，便得到下图：


测试成功后点击确定，再按着提示一步一步的走：需要注意的是这里的数据源名称是自动生成的，不用管，但是最上面的名称是自己设置的，必须要记住，在写查询按钮的代码的时候会用到，而且作用很大，不信你可以试试！
第四步：右击添加的报表，选择表，就会生成一个表的格式，然后根据上图中的字段进行填表并挨个选择数据源（在表的每个方格的右上角）就会设计成如下图的效果：


第五步：这是设计最简单的报表，不用添加参数，设计好以后会自动在窗体的加载方法中生成一句代码：

<span ><strong>Me.SettleAccountsInfotableAdapter.Fill(Me.MyChargeDataSet.SettleAccountsInfo)        Me.ReportVIEwer1.RefreshReport()</strong></span>

这两句中的最后一句重要，第一句可以根据需要删除它！这样当窗体加载后就会自动显示数据库表的内容。 但是对于周结账单，我们要点击查询按钮，根据日期控件中的内容去查找数据库中适合的数据显示到报表中。右击报表数据窗体中的参数-----添加参数（本例为：rptStartDate ），再加上下面的代码就可以实现此功能了！
<span ><strong> Dim selectSA As New Facade.SettleAccountFacade

Dim dt As New Datatable        Dim enSettleAccountInfo As New Entity.SettleAccountsEntity        Dim enSettleAccount As New Entity.SettleAccountsEntity        enSettleAccount.SAdate = DateTimePicker1.Text.Trim        enSettleAccountInfo.SAdate = DateTimePicker2.Text.Trim        '给Datatable赋值          dt = selectSA.fSelectSA(enSettleAccountInfo,enSettleAccount)        '定义报表数据源          Dim rptDataSource As New ReportDataSource        rptDataSource.name = "DataSet1"        rptDataSource.Value = dt        '说明ReportVIEwer承载的报表名          ReportVIEwer1.LocalReport.ReportEmbeddedResource = "UI.Report2.rdlc"        '设置两个参数的值，这两个参数是两个日期参数，通常设置为文本类型的。          Dim rptStartDate  As ReportParameter = New ReportParameter("rptStartDate ",DateTimePicker1.Text.Trim)        ReportVIEwer1.LocalReport.SetParameters(New ReportParameter() {rptStartDate })        Dim rptEndDate As ReportParameter = New ReportParameter("rptEndDate ",DateTimePicker2.Text.Trim)        ReportVIEwer1.LocalReport.SetParameters(New ReportParameter() {rptEndDate })        '清空ReportVIEwer的数据源          ReportVIEwer1.LocalReport.DataSources.Clear()        '加载ReportVIEwer的数据源为rptDataSource          ReportVIEwer1.LocalReport.DataSources.Add(rptDataSource)        '刷新ReportVIEwer          Me.ReportVIEwer1.RefreshReport()  </strong></span>

可能出现的错误：

这个问题的解决就是让代码中rptDataSource.name的名字和第三步里图片上的名称（本图为DataSet1）一样才行，不然就会出现这个问题！
小结：
这个报表其实有很多方法进行和数据库的绑定来减少代码量，值得我们更深的研究，而且看了崔成龙师哥的博客后，发现我的报表设计的真不是一般的单调！距离为人民服务还差很远的距离，看来真是“革命尚未成功，我们需要更加努力啊！” 总结

以上是内存溢出为你收集整理的VB.NET版机房重构---“报表”之旅全部内容，希望文章能够帮你解决VB.NET版机房重构---“报表”之旅所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。