Vb.net 来自Datagridview数据源的Crystal报表数据源

有人能帮我吗？我在VB.NET中有一个项目，试图向我的“CrystalReportViewer1”显示，然后我从这个datagridview中设置了datasource“MenuTambah.DGVTambah.datasource”

我在项目中创建了“CrystalReport1.rpt”（项目>添加新项>CrystalReport，并将其命名为“CrystalReport1.rpt”） 这是我的表单加载时的代码

Private Sub LaporanViewer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim crReportDocument As New CrystalReport1
    crReportDocument.SetDataSource(MenuTambah.DGVTambah.DataSource)
    CrystalReportViewer1.RefreshReport()
    'View the report 
    CrystalReportViewer1.ReportSource = crReportDocument
End Sub

我已经成功地将我的数据库表以另一种称为“MenuTambah.DGVTambah”的形式加载到Datagridview中，然后我想使用上面的代码基于我的Datagridview设置crystal文档数据源。当运行和加载“MenuTambah”时，没有异常错误或其他问题，只要退出，有什么想法吗？

试试这个

单击：项目>您的项目属性>设置

公共子ShowReport（ByVal MyReport作为CrystalDecisions.CrystalReports.Engine.ReportDocument，ByVal filterstring作为String，ByVal CrystalReportViewer作为CrystalDecisions.Windows.Forms.CrystalReportViewer）
将myLogonInfo设置为新的CrystalDecisions.Shared.TableLogOnInfo
把我的桌子调暗为桌子
对于MyReport.Database.Tables中的每个myTable
myLogonInfo=myTable.LogOnInfo
myLogonInfo.ConnectionInfo.ServerName=My.Settings.RptserverPath.ToString
myLogonInfo.ConnectionInfo.DatabaseName=My.Settings.Database.ToString
myLogonInfo.ConnectionInfo.UserID=My.Settings.DBUser.ToString
myLogonInfo.ConnectionInfo.Password=My.Settings.DBPass.ToString
myTable.ApplyLogOnInfo（myLogonInfo）
下一张我的桌子
CrystalReportViewer.ReportSource=MyReport
CrystalReportViewer.SelectionFormula=filterstring
CrystalReportViewer.Refresh（）
端接头
私有子SimpleButton6_-Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理SimpleButton6.Click
将MyReport设置为CrystalDecisions.CrystalReports.Engine.ReportDocument=新的“您的报告名称”
ShowReport（MyReport、filterstring、CrystalReportViewer1）
端接头

或者有人知道选择数据集然后将其作为我的crystaldocument的源的最佳方法吗？