Skip to Content
Former Member
May 30, 2014 at 08:36 PM

Print, ask for parameters, set table locations, but can't display report?


Dang, I'm sooooooooooooo close! The attached VB code reads a file, modifies formulas, redirects tables to new ones, will evern PRINT the danged reports, but will NOT SHOW them? I'm converting from an old VS2008 version, where all that was needed was a CrystalReportViewer2.Refresh().

It absolutely connects to the database - I've printed out numerous reports, but it will NOT display them.

What am I missing?

Private Sub ShowReport()

Dim errstr As String = "No Error"


Dim crtableLogoninfos As New CrystalDecisions.Shared.TableLogOnInfos()

Dim crtableLogoninfo As New CrystalDecisions.Shared.TableLogOnInfo()

'Dim crConnectionInfo As New CrystalDecisions.Shared.ConnectionInfo()

Dim CrTables As CrystalDecisions.CrystalReports.Engine.Tables

Dim CrTable As CrystalDecisions.CrystalReports.Engine.Table

Dim i As Integer

errstr = "Loading Report"


'This code works for both user tables and stored

'procedures. Set the CrTables to the Tables collection

'of the report

CrTables = crReportDocument.Database.Tables

crReportDocument.SetDatabaseLogon("RPT", MyPassWord)

'change formula values

i = 1

While (i < MaxParms) And (Parms(i, 1) <> "")

errstr = "Setting Formula " & Parms(i, 1)

crReportDocument.DataDefinition.FormulaFields(Parms(i, 1)).Text = Parms(i, 2)

i = i + 1

End While

' now add login info to each table, see if needs to be changed

i = 1

For Each CrTable In CrTables

crtableLogoninfo = CrTable.LogOnInfo

'crtableLogoninfo.ConnectionInfo.ServerName = "IQORA"

crtableLogoninfo.ConnectionInfo.UserID = "RPT"

crtableLogoninfo.ConnectionInfo.Password = MyPassWord


MessageBox.Show(CrTable.Name & " - " & CrTable.Location & " - " & TableNames(i, 1))

If (i < MaxTables) Then

If (TableNames(i, 1) <> Nothing) Then

errstr = "Setting table " & CrTable.Location & " to " & TableNames(i, 1)

CrTable.Location = TableNames(i, 1)

End If

End If

'MessageBox.Show(CrTable.Name & " - " & CrTable.Location)

i = i + 1


errstr = "Display"

'Set the viewer to the report object to be previewed.


CrystalReportViewer2.ReportSource = crReportDocument '"R:\Rpt60\IMC_Templatex.rpt"




Catch E As Exception

' Let the user know what went wrong.

MessageBox.Show("Report error: " & errstr & E.Message)

End Try

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



End Sub