Crystal Report Источник данных из Datagridview datasource

Question

Может ли кто-нибудь мне помочь? У меня есть проект в VB.NET и попытка показать мой «CrystalReportViewer1», после чего я установил источник данных из этого datagridview «MenuTambah.DGVTambah.DataSource».

создать «CrystalReport1.rpt» в проекте (проект> добавить новый элемент> Crystal Report и назвал его «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» нет ошибки исключения или чего-то еще, просто выйти, любая идея?

Answer 1

попробовать этот

нажмите на Project>Ваш проект Propertise>Настройки

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