[2005] VB.Net -> Crystal Reports C++ Runtime Error

[GottaGetITDone]

Hey Guys,

WOW BusinessObjects.com is hard to navigate and find good info! Hence I pose my question to you learned folk…

I have an issue with Crystal Reports included with VS.Net 2005. Please see the screen shot of the error attached.

This error message is displayed when trying to view a report using the Crystal Reports viewer. I am using the push data method, i.e I create and populate a dataset and then ‘push’ it onto the report. I then set the report source for the viewer and call show for the form – all standard stuff. Now this all works beautifully BUT if I switch between other applications before the report is displayed I am greeted with this error message (attached):

Runtime Error!

Program: <AppPath>

R6025
-pure virtual function call

Upon clicking OK my whole app catastrophically fails, down she goes….

All the code is sitting inside Try, Catch, Finally blocks so any error produced by my code *should* be caught. Could anything about my code be provoking this situation?

Obvious answer: Don’t switch between apps! But the report can take up to a couple of minutes to display, users have work to do. Further more it should be possible just by principle – I mean that’s the whole reason behind a multitasking environment.

I attempted the obvious solution and went searching for any service packs or hot fixes but none have been released yet for 2005 (as far as I can see – please correct me if not).

Some code:

Private Sub ShowExecRpt()
 
            Dim objRpt As New crExecRpt
            Dim objExecData As xsExecRpt
 
            'Gather the data
            objExecData = cRptDataEngine.BuildExecData()
 
            'Sort the data and push onto report
            objRpt.SetDataSource(SortDataSet(objExecData))
 
            'Set the print options
            objRpt.PrintOptions.PaperSize = CrystalDecisions.[Shared].PaperSize.PaperA3
            objRpt.PrintOptions.PaperOrientation = CrystalDecisions.[Shared].PaperOrientation.Landscape
 
            'Display the report
            ShowRpt(objRpt, "Executive Summary " & DateTime.Now.ToString(cMain.conDateFormat))
 
            objRpt.Dispose()
            objRpt = Nothing
 
            If Not objExecData Is Nothing Then
                objExecData.Dispose()
                objExecData = Nothing
            End If
        End Sub
 
    Public Shared Sub ShowRpt(ByVal objRpt As Object, ByVal sWindText As String, Optional ByVal sEndDate As String = "")
            'Open the report form with window txt passed in. Set the report EndDate param to passed value.
 
            Dim frmRptViewInst As frmRptView
            Dim paramField As CrystalDecisions.Shared.ParameterField
            Dim discreteVal As CrystalDecisions.Shared.ParameterDiscreteValue
            Dim paramFields As CrystalDecisions.Shared.ParameterFields
 
            frmRptViewInst = New frmRptView
            frmRptViewInst.MdiParent = cMain.frmMDIMain
 
            Try
                If sEndDate <> "" Then
 
                    discreteVal = New CrystalDecisions.Shared.ParameterDiscreteValue
 
                    discreteVal.Value = sEndDate
 
                    paramField = New CrystalDecisions.Shared.ParameterField
 
                    paramField.ParameterFieldName = "EndDate"
                    paramField.CurrentValues.Add(discreteVal)
 
                    paramFields = New CrystalDecisions.Shared.ParameterFields
 
                    paramFields.Add(paramField)
 
                    frmRptView.crView.ParameterFieldInfo = paramFields
                End If
 
                frmRptViewInst.crView.ReportSource = objRpt
                frmRptViewInst.Text = sWindText
                frmRptViewInst.Show()
 
            Catch ex As Exception
                MessageBox.Show("An error occured while attempting to display the report." & vbCr & _
                                "The report cannot be displayed." & vbCr & vbCr & _
                                "Please contact your System Administrator.", "Marketing Reports", MessageBoxButtons.OK, MessageBoxIcon.Information)
                cMain.WriteErrorLog("frmCampRpt::ShowRpt()" & vbTab & ex.Message)
            End Try
 
        End Sub

This code works EVERYTIME I keep focus on my app, if I switch to another app the error message is displayed right before the viewer actually renders the report. Its definately making it to 'frmRptView.Show()' because the form pops up, the viewers controls are all placed along the top and then BOOM error!

Tearing my hair out! Looks like it may be in the CR runtime? It occurs on my both my Dev machine and end users machines. Occurs when running from the IDE or exe on my Dev box. I have deployed the CR.Net 2005 merge modules to the client machines using an MSI built in VS2005.

Apologies for the length of the post but trying to provide as much info as possible.

Many thanks in advance for any suggestions, ideas or possible solutions.
Matt.