0
Crystal Reportsに問題があり、レポートを初めて実行しようとするとレポートが空になります。レポートには、さまざまなセパレータ、線、ボックスなどが表示されますが、レポートにはデータはありません。私はコーディングにVisual Basic 6を使用しています。私は多くの継承されたコードを使用しており、実際のCrystal Reportsを処理するコードは他のレポートに使用されるファイルであり、正常に動作します。だから問題は私が何かをぶち壊しているところからやって来たことによると確信しています。私はDoEvents関数で遊んでみましたVB6のCrystal Reportsが最初の実行で空の状態になる
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
はそれを助けることができますが、それを多くの幸運を持っていなかったかどうかを確認するために機能する。ここで
は、私がこれまで持っているコードです。最初のレポートの実行に失敗した後は、すべて正常に動作します。プログラムを終了しない限り、空白のレポートが渡されると有効なデータを含むレポートが印刷されます。あなたが私に与えることができるどんな助けでもありがとう。私はVB6とCRを使用しますが、私は一種の視聴者を設定する前に保存したデータを破棄するためにあなたの必要性ちょうどつまずきの後に問題を考え出したソースReport.DiscardSavedData
CRViewer1.ReportSource = Report