Public Sub stampaReport(ByVal ntipo As String, ByVal del As String)
Try
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
Dim objdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
Dim varformula As String
db = Configuration.ConfigurationManager.AppSettings("da tabase")
varformula = "{documenti.numero}='" & ntipo & "' AND {documenti.data}= '" & del & "'"
CrystalReport.SelectionFormula = varformula
CrystalReport.RefreshReport()
objdoc.Load(Application.StartupPath & "\reportddt.rpt")
For Each tbCurrent In objdoc.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
.ServerName = db
.UserID = ""
.Password = ""
.DatabaseName = "dati"
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent
CrystalReport.ReportSource = objdoc
CrystalReport.RefreshReport()
CrystalReport.Show()
Catch ex As Exception
MessageBox.Show("Errore FrmRptCommessa_CrystalReportViewer1_Load: " & ex.Message, "ERRORE", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub