来自 Datagridview 数据源的 Crystal Report 数据源答案

【问题标题】：Crystal Report Data source from Datagridview datasource来自 Datagridview 数据源的 Crystal Report 数据源
【发布时间】：2015-11-28 18:16:49
【问题描述】：

谁能帮帮我？我在 VB.NET 中有一个项目并尝试向我的“CrystalReportViewer1”显示，然后我从这个 datagridview“MenuTambah.DGVTambah.DataSource”设置数据源。

我在项目中创建“CrystalReport1.rpt”（项目>添加新项目>水晶报告并将其命名为“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

我已经成功地将我的数据库表以其他形式加载到该 Datagridview 中，称为“MenuTambah.DGVTambah”，然后我想使用上面的代码根据我的 datagridview 设置我的水晶文档数据源。当运行和加载“MenuTambah”时，没有异常错误什么的，直接退出，知道吗？

【问题讨论】：

或者任何人都知道选择数据集然后将其作为我的水晶文档的来源的最佳方法？

标签： vb.net crystal-reports

【解决方案1】：

试试这个

点击：项目>你的项目属性>设置

Public Sub ShowReport(ByVal MyReport As CrystalDecisions.CrystalReports.Engine.ReportDocument, ByVal filterstring As String, ByVal CrystalReportViewer As CrystalDecisions.Windows.Forms.CrystalReportViewer)
    Dim myLogonInfo As New CrystalDecisions.Shared.TableLogOnInfo
    Dim myTable As Table
    For Each myTable In MyReport.Database.Tables
        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)
    Next myTable
    CrystalReportViewer.ReportSource = MyReport
    CrystalReportViewer.SelectionFormula = filterstring
    CrystalReportViewer.Refresh()
End Sub


Private Sub SimpleButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton6.Click
    Dim MyReport As CrystalDecisions.CrystalReports.Engine.ReportDocument = New 'Your Report Name'
    ShowReport(MyReport, filterstring, CrystalReportViewer1)
End Sub

【讨论】：