I have a report which was created using CR4.6.1. I now have upgraded to CR8. I added this report to a VB project w/viewer enabled and got ‘Server has not yet been opened’ when I issued the show command. Now, I get an error on the code in italics below (Run-time error ‘450’: Wrong number of arguments or invalid property assignment). I put this code in based on a forum reply to server not open error, but I don’t really understand why. I just would like for this report to now use the data environment in this project. How do I do that please?
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Set Application = CreateObject("CrystalRuntime.Application"
Set Report=Application.OpenReport("k:\vb98\rpts\exhA.rpt"
For Each dbtable In Report.Database.Tables
dbtable.SetLogOnInfo
dbtable.LogOnServerName
dbtable.LogOnDatabaseName
Next
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Set Application = CreateObject("CrystalRuntime.Application"
Set Report=Application.OpenReport("k:\vb98\rpts\exhA.rpt"
For Each dbtable In Report.Database.Tables
dbtable.SetLogOnInfo
dbtable.LogOnServerName
dbtable.LogOnDatabaseName
Next
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub