Public Class Form1

    'Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    '    Me.ReportViewer1.RefreshReport()
    'End Sub

    'ReportProducts报表
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        '定义数据集
        Dim ProductsDS As New FirstDataSet
        '数据SQL命令
        Dim commandtext As String = "select * from Products"
        '报表定义文件
        Dim rdlcfile As String = "Reports/ReportProducts.rdlc"
        '报表中使用的数据集名称
        Dim reportds As String = "RpProductsDataSet"
        '生成报表
        Me.GetReport(ProductsDS, commandtext, rdlcfile, reportds, False)

    End Sub

    'ReportOrders报表
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        '定义数据集
        Dim ProductsDS As New SecondDataSet
        '数据SQL命令
        Dim commandtext As String = "select * from orders"
        '报表定义文件
        Dim rdlcfile As String = "Reports/ReportOrders.rdlc"
        '报表中使用的数据集名称，注意：名称中大小写敏感
        Dim reportds As String = "rpOrdersDataset"
        '生成报表
        Me.GetReport(ProductsDS, commandtext, rdlcfile, reportds, True)
    End Sub

    Private Sub GetReport(ByVal ds As DataSet, ByVal Commandtext As String, ByVal RDLCFile As String, ByVal ReportDS As String, ByVal isLandscape As Boolean)
        'ds:使用哪一个数据集
        'Commandtext：数据SQL命令
        'RDLCFile:RDLC文件路径及文件名
        'ReportDS：RDLC报表文件使用的数据集名称
        'isLandscape:报表页面是否以横向显示

        '----------------------------获取数据----------------------------------
        '定义数据集
        'Dim DataSetUsed As New ds
        '定义连接
        Dim conn As New OleDb.OleDbConnection
        '连接的关键字从配置中获取
        conn.ConnectionString = My.Settings.NorthwindConnectionString
        '定义数据命令
        Dim comm As New Data.OleDb.OleDbCommand
        comm.CommandType = CommandType.Text
        comm.CommandText = Commandtext
        comm.Connection = conn
        '定义数据适配器
        Dim DA As New OleDb.OleDbDataAdapter(comm)
        '填充数据
        Using conn
            conn.Open()
            DA.Fill(ds.Tables(0))
        End Using

        '--------------------------------生成报表-----------------------------
        '设置使用本地报表模式
        Me.ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
        '清空ReportViewer1控件原有的数据源
        Me.ReportViewer1.LocalReport.DataSources.Clear()
        '定义本地报表变量
        Dim ReportEngine As Microsoft.Reporting.WinForms.LocalReport
        ReportEngine = ReportViewer1.LocalReport
        '指定报表文件
        ReportEngine.ReportPath = RDLCFile
        '加载数据源,注意：数据集的大小写是敏感的。
        ReportEngine.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource(ReportDS, ds.Tables(0)))

        '---------------------设置预览---------------------------------

        '显示模式是打印预览模式
        Me.ReportViewer1.SetDisplayMode(Microsoft.Reporting.WinForms.DisplayMode.PrintLayout)
        '页面设置变量
        Dim pageset As Drawing.Printing.PageSettings = Me.ReportViewer1.GetPageSettings
        '页面是否是横向显示
        pageset.Landscape = isLandscape
        '设置页面
        Me.ReportViewer1.SetPageSettings(pageset)
        '以百分比显示
        Me.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.Percent
        '100%的比例
        Me.ReportViewer1.ZoomPercent = 100

        '刷新报表
        Me.ReportViewer1.RefreshReport()
    End Sub
End Class

最后的效果如下：