Problema con crystal report e vb 2010

mercoledì 17 ottobre 2012 - 08.03

jekisi Profilo | Senior Member

Salve a tutto il forum, avrei il seguente problema.

Per stampare una fattura faccio

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
caricaReport("C:\Stampa fattura da n a n\Aziendale 2012.mdb")
End Sub
Private Sub caricaReport(ByVal pathDatabase As String)
Dim mioreport1 As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
Dim mioreport2 As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
mioreport1.Load(AppDomain.CurrentDomain.BaseDirectory & "\CrystalReport1.rpt")
mioreport2.Load(AppDomain.CurrentDomain.BaseDirectory & "\CrystalReport1.rpt")
Dim logOnInfo As New CrystalDecisions.Shared.TableLogOnInfo
Dim logOnInfo1 As New CrystalDecisions.Shared.TableLogOnInfo
Dim logOnInfo2 As New CrystalDecisions.Shared.TableLogOnInfo
logOnInfo1 = mioreport1.Database.Tables.Item("Tfatture").LogOnInfo
logOnInfo2 = mioreport2.Database.Tables.Item("Rfatture").LogOnInfo
logOnInfo1.ConnectionInfo.ServerName = pathDatabase
logOnInfo2.ConnectionInfo.ServerName = pathDatabase
logOnInfo.TableName = "Tfatture"
logOnInfo.TableName = "Rfatture"
mioreport1.Database.Tables(0).ApplyLogOnInfo(logOnInfo)
mioreport2.Database.Tables(0).ApplyLogOnInfo(logOnInfo)
CrystalReportViewer1.Visible = True
End Sub

Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
CrystalReportViewer1.Visible = False
Try
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
Dim objdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim varformula As String
varformula = "{Rfatture.codice}= " & Form1.NumeroTextBox.Text
CrystalReportViewer1.SelectionFormula = varformula
CrystalReportViewer1.RefreshReport()
objdoc.Load(Application.StartupPath & "\crystalreport1.rpt")
For Each tbCurrent In objdoc.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
'.ServerName = myDataSource
.UserID = ""
.Password = ""
.DatabaseName = "GestioneSmaltimento"
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent
CrystalReportViewer1.ReportSource = objdoc
CrystalReportViewer1.RefreshReport()
Catch ex As Exception
'MessageBox.Show("Errore FrmRptCommessa_CrystalReportViewer1_Load: " & ex.Message, "ERRORE", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
CrystalReportViewer1.Visible = True
End Sub

Il seguente codice con vb 2005 e 2008 va bene, ma con vb 2010 appena dal form1 apro form2 facendo

Form2.ShowDialog()

l' applicazione mi si blocca.

Da cosa può dipendere?

Distinti Saluti

Fabio Messina
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5