Crystal Reports in VB6 wordt leeg weergegeven voor de eerste keer uitvoeren

Dus ik ondervind een probleem met Crystal Reports. De eerste keer dat ik het rapport probeer uit te voeren, is het rapport leeg. Het rapport wordt weergegeven met de verschillende scheidingstekens, regels, vakken, enzovoort, maar er zijn geen gegevens om het rapport in te vullen. Ik gebruik Visual Basic 6 voor de codering. Ik gebruik veel overgeërfde code en de code die de eigenlijke Crystal Reports-rapporten verwerkt is een bestand dat wordt gebruikt voor andere rapporten en het werkt prima. Dus ik weet zeker dat het probleem is van wat ik heb gedaan waar ik iets verprutst.

Hier is de code die ik tot nu toe heb:

Dim rs As ADODB.Recordset
Dim strRptFilePathTemp As String
Dim strRptFileName As String
Dim cSql As String

cSql = "SELECT * FROM TABLE1"

Set rs = DbConn.runStatement(cSql, "rs call", , , , , , , , , , True)  'gets a recordset based on the sql statement above

On Error GoTo ErrHandler


strRptFileName = "ReportName.rpt"

strRptFilePathTemp = App.Path


Screen.MousePointer = vbHourglass

Set frmcrystalreport.ReportRS = rs

DoEvents


frmcrystalreport.reportfile = strRptFilePathTemp & strRptFileName
frmcrystalreport.ReportTitle = _
frmCrystalReportsMainForm.GetRptTitle1("ReportTitle, ") & vbCrLf
gblStrReportFileNameLastRun = frmcrystalreport.reportfile
Screen.MousePointer = vbDefault

DoEvents

frmcrystalreport.Show vbModal

If Not frmcrystalreport.ReportRS Is Nothing Then
frmcrystalreport.ReportRS.Close
Set frmcrystalreport.ReportRS = Nothing
End If
Exit Sub

End If

End Sub

Ik heb geprobeerd met de DoEvents-functie te spelen om te zien of dat kan helpen, maar ik heb er niet veel geluk mee gehad. Alles werkt goed na die eerste mislukte poging om het rapport uit te voeren. Zolang ik het programma niet afsluit, zal het een rapport met de geldige gegevens afdrukken zodra ik dat lege rapport heb doorstaan. Bedankt voor alle hulp die jullie me kunnen geven.

0

2 antwoord

Hmmm, het is een tijdje geleden dat ik VB6 en CR heb gebruikt, maar ik herinner me een beetje dat je de opgeslagen gegevens moest verwijderen voordat je de bron van het kijkersrapport instelde

Report.DiscardSavedData
CRViewer1.ReportSource = Report
0
toegevoegd

Ik heb het probleem pas ontdekt nadat ik in Crystal Reports op iets heb gestuit. Ik moest de opslaggegevens uitschakelen met de rapportfunctie in het rapportbestand onder het menu Bestand.

0
toegevoegd