VB.NET 2015中基于ComboBox切换Crystal Report报表的实现方法

嘿，刚接触Crystal Reports和VB.NET的话别慌，我帮你捋清楚怎么实现这个需求！

1. 先准备好Crystal Report模板文件 #

首先你得先创建两个独立的.rpt报表文件：

• Report1.rpt：设计成包含date/time和value1字段的报表，把你说的两张表关联好（可以用数据库视图整合数据，或者直接在报表设计器里添加两张表并设置关联条件）
• Report2.rpt：同理，设计成包含date/time和value2字段的报表，对应你需要的另外两张表数据

小贴士：设计报表时记得配置好数据源，确保预览时能正常加载字段数据。

2. 在VB.NET窗体上添加必要控件 #

在你的窗体界面上添加这些控件：

• 一个ComboBox（建议命名为cmbReportSelect），手动添加两个选项：report1和report2
• 一个Button（建议命名为btnShowReport），作为触发报表展示的按钮
• 一个CrystalReportViewer控件（建议命名为crystalReportViewer1），用来承载和显示报表

3. 编写按钮点击事件的核心代码 #

接下来就是实现逻辑的关键部分，在按钮的Click事件里判断用户选择的选项，加载对应的报表：

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Private Sub btnShowReport_Click(sender As Object, e As EventArgs) Handles btnShowReport.Click
    ' 先清空查看器里的旧报表
    crystalReportViewer1.ReportSource = Nothing
    
    ' 根据ComboBox的选择加载对应报表
    Select Case cmbReportSelect.SelectedItem.ToString().ToLower()
        Case "report1"
            Dim report1 As New Report1() ' 这里的Report1是你创建的报表类名
            ' 如果需要动态传入数据源（比如不是设计时固定的数据源），可以在这里设置
            ' 示例：report1.SetDataSource(你的DataTable或DataSet对象)
            crystalReportViewer1.ReportSource = report1
        Case "report2"
            Dim report2 As New Report2() ' 同理，Report2是你的第二个报表类名
            ' 动态设置数据源的话在这里处理
            ' report2.SetDataSource(你的DataTable或DataSet对象)
            crystalReportViewer1.ReportSource = report2
        Case Else
            MessageBox.Show("请选择有效的报表选项！")
    End Select
    
    ' 刷新报表查看器，确保新报表正常显示
    crystalReportViewer1.Refresh()
End Sub

4. 额外注意事项 #

• 确保你的VB.NET项目已经引用了Crystal Reports相关程序集，一般安装Crystal Reports for Visual Studio后会自动添加，如果没有的话手动添加：CrystalDecisions.CrystalReports.Engine、CrystalDecisions.Shared、CrystalDecisions.Windows.Forms
• 如果报表数据是从数据库动态获取的，记得先通过SqlDataAdapter等方式查询出对应数据并填充到DataSet/DataTable里，再传给报表的SetDataSource方法
• 测试时注意ComboBox的选项文本和代码里判断的字符串一致，代码里用了ToLower()来避免大小写匹配问题

内容的提问来源于stack exchange，提问作者fika