Crystal Report XI / VB 6 Problem

[Sam Ceccola]

> OS =Windows XP Professional SP2
> CR version XI Developer Edition
> VB6 Enterprise Edition
>
> I have a Form called: frmCRPrint. This is where the CrystalActiveXReportViewer is on.
>
> I am getting the following error when executing the code below.
> "The control is busy downloading data"
> The table I am using (Table Name: TAKEOUT) only has 10 records in it so I don't understand what is causing this problem. The variable "TOSpecDate" is initialized prior to entering this routine.
>
>
> Global Module:
> Public ReportPath As String
> Public craxapp As New CRAXDDRT.Application
> Public craxreport As CRAXDDRT.Report
> Public ReportName As String
>
> In the Form_Activate of frmCRViewer, I have the following:
> Private Sub Form_Activate()
> Dim dbTable As CRAXDDRT.DatabaseTable
>
>
> If ReportName = "InvTakeOut.rpt" And HoldIndex = 0 Then
> Set craxreport = craxapp.OpenReport(ReportPath & "\" & ReportName)
> craxreport.FormulaSyntax = crCrystalSyntaxFormula
> craxreport.RecordSelectionFormula = "{TakeOut.dbToDate} = '" & TOSpecDate & "'"
> ElseIf ReportName = "InvPar***atusReport.rpt" Then
> .
> .
> End if
> While CrystalActiveXReportViewer1.IsBusy
DoEvents
Wend
> CrystalActiveXReportViewer1.Refresh
> CrystalActiveXReportViewer1.ReportSource = craxreport
> CrystalActiveXReportViewer1.ViewReport
> Set craxreport = Nothing
> End Sub
>
> The error occurs on the "CrystalActiveXReportViewer1.Refresh" command. I let this code run for about 10 minutes. No report was seen.
> As you can see, I put "DoEvents" in the code. It did not rectify the problem.

[Sam Ceccola]

Problem Resolved: I wish I could tell you what the problem was but I have no idea except the possibility of a "bad typist" (me) or a illegal blind character. I printed that part of my code and retyped it. It worked.

Thanks for your looks,
Sam