在VS中报表的实现还是比較easy的。第一次机房收费时，我们用了三方工具来制作报表，相对俩说是比較麻烦的，我们来看一下，VS中是怎样制作报表的。

    第一步：加入数据集

watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" width="940" height="570" >

    第二步：依据向导，新建连接，输入相关信息。

watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" width="974" height="361" >

    下一步：

    下一步：

    之后一直下一步，选择select 语句进行显示

    第三步，加入报表

watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" width="940" height="368" >

   第四步。选择新建的报表，右击加入表。选择数据集属性。

    下一步，为报表加入相应的字段

watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" width="699" height="129" >

    第五步，加入报表容器。

    至此。大功告成，以下以周结账单为例，展示部分代码：

<span style="font-size:18px;"><strong>Private Sub cmdQuery_Click(sender As Object, e As EventArgs) Handles cmdQuery.Click
        Dim dateinfo As New Entity.DayWeekEntity
        Dim dayweekfac As New Facade.DayWeekFac
        Dim table As DataTable

        dateinfo.StartDate = Format(DTPstart.Value, "yyyy-MM-dd")
        dateinfo.StopDate = Format(DTPstop.Value, "yyyy-MM-dd")
        'table为依据查询条件返回的datatable
        table = dayweekfac.GetWeekInfo(dateinfo)

        Dim rptDataSource As New ReportDataSource  '声明数据源对象
        rptDataSource.Name = "DataSet1" '设置报表数据集名称
        rptDataSource.Value = table '设置数据源实例
        ReportViewer1.LocalReport.ReportEmbeddedResource = "WindowsApplication1.CheckDayWeek.rdlc"

        ReportViewer1.LocalReport.DataSources.Clear()
        ReportViewer1.LocalReport.DataSources.Add(rptDataSource)

        Me.ReportViewer1.RefreshReport()
    End Sub</strong></span>

    这仅仅是一个简单的实现功能，原来看过一个师哥的博客，报表设计的特别美丽，合作的 时候要加油了！