Итак, у меня возникла проблема с Crystal Reports, когда я впервые запускаю отчет, отчет отображается пустым. Отчет отображается с различными разделителями, строками, полями и т. Д., Но нет данных для заполнения отчета. Я использую Visual Basic 6 для кодирования. Я использую много унаследованного кода, а код, который обрабатывает фактические Crystal Reports, является файлом, который используется для других отчетов, и он отлично работает. Поэтому я уверен, что проблема в том, что я сделал, когда я что-то испортил.Crystal Reports в VB6 отображается пустым для первого запуска
Вот код, который я до сих пор:
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
Я пытался играть вокруг с DoEvents работать, чтобы увидеть, если это может помочь, но не везло с ним. Все работает отлично после того, как начальная неудачная попытка запустить отчет. Пока я не выхожу из программы, он будет распечатывать отчет с действительными данными, как только я получу этот пустой отчет. Спасибо за любую помощь, которую вы, ребята, можете мне дать.