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

发布时间：2020-12-17 00:12:52 所属栏目：大数据来源：网络整理

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

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

第一步：

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

第二步：

我们要明白，这只是添加了一个报表控件，而真正的报表我们还没有绑定到这个控件上！接下来就是绑定真正的报表：

右击U层添加新建项，然后从里面选择报表这一项：如图：

然后得到如下图的效果：

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

测试成功后点击确定，再按着提示一步一步的走：需要注意的是这里的数据源名称是自动生成的，不用管，但是最上面的名称是自己设置的，必须要记住，在写查询按钮的代码的时候会用到，而且作用很大，不信你可以试试！

第四步：右击添加的报表，选择表，就会生成一个表的格式，然后根据上图中的字段进行填表并挨个选择数据源（在表的每个方格的右上角）就会设计成如下图的效果：

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

<span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>Me.SettleAccountsInfoTableAdapter.Fill(Me.MyChargeDataSet.SettleAccountsInfo)
        Me.ReportViewer1.RefreshReport()</strong></span>

这两句中的最后一句重要，第一句可以根据需要删除它！这样当窗体加载后就会自动显示数据库表的内容。

但是对于周结账单，我们要点击查询按钮，根据日期控件中的内容去查找数据库中适合的数据显示到报表中。右击报表数据窗体中的参数-----添加参数（本例为：rptStartDate ），再加上下面的代码就可以实现此功能了！

<span style="font-family:KaiTi_GB2312;font-size:18px;"><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）一样才行，不然就会出现这个问题！

小结：

这个报表其实有很多方法进行和数据库的绑定来减少代码量，值得我们更深的研究，而且看了崔成龙师哥的博客后，发现我的报表设计的真不是一般的单调！距离为人民服务还差很远的距离，看来真是“革命尚未成功，我们需要更加努力啊！”

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!