2015-06-03 5 views
2
Imports System.Data.SqlClient 
Imports System.Configuration 
Imports System.Linq 
Imports CrystalDecisions.CrystalReports.Engine 
Imports CrystalDecisions.Shared 
Public Class Form1 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim cryRpt As New ReportDocument 
     Dim crtableLogoninfos As New TableLogOnInfos 
     Dim crtableLogoninfo As New TableLogOnInfo 
     Dim crConnectionInfo As New ConnectionInfo 
     Dim CrTables As Tables 
     Dim CrTable As Table 


     cryRpt.Load("C:\Users\dad\Desktop\report\myfile2.rpt") 


     With crConnectionInfo 
      .ServerName = "127.0.0.1" 
      .DatabaseName = "xxx" 
      .UserID = "sa" 
      .Password = "123456" 
     End With 

     CrTables = cryRpt.Database.Tables 
     For Each CrTable In CrTables 
      crtableLogoninfo = CrTable.LogOnInfo 
      crtableLogoninfo.ConnectionInfo = crConnectionInfo 
      CrTable.ApplyLogOnInfo(crtableLogoninfo) 
     Next 

     CrystalReportViewer1.ReportSource = cryRpt 
     CrystalReportViewer1.Refresh() 
    End Sub 
End Class 

Я получаю ошибку ниже при попытке загрузить отчет кристалла в визуально студии 2013.Ошибка загрузки кристалл отчет в vb.net

необработанное исключение типа «CrystalDecisions.Shared.CrystalReportsException» произошло в CrystalDecisions.CrystalReports.Engine.dll

Дополнительная информация: Ошибка загрузки отчета.

На этой линии cryRpt.Load("C:\Users\dad\Desktop\report\myfile2.rpt")

Путь является правильным.

ответ

1

Вы можете попробовать вариант

Report.Load(ReportTemplateFullName, _ 
    CrystalDecisions.Shared.OpenReportMethod.OpenReportByTempCopy) 
0

Я не знаю, если это работает, но я поставил ссылку, где отчет является, в строке, так

purchdocReport = New ReportDocument()

Dim reportPath As String = "C:\...\report\purchase_inv1.rpt" purchdocReport.Load(reportPath)