1

現在、エラーが発生しています：

無効な TLV レコード

次のコード ブロックを実行する場合:

Private Sub PrinttoFile_Click()
    Dim crApp As CRAXDRT.Application
    Dim crRep As CRAXDRT.Report
    Set crApp = New CRAXDRT.Application
    Set crRep = crApp.OpenReport("C:\Documents and Settings\Administrator\Desktop\DansTest\Report3.rpt")
    '...code to set report parameters, login information etc...

    ExportReportToPDF crRep, "C:\Testing\ReportTest.pdf", "Beds Held"


End Sub

Set crRep = 行でエラーが発生します。CR9 のすべての .dll が登録されていることを確認しました。このレポートは、CR9 レポートを使用して作成され、そのまま保存されています。CRAXDRT は、CR9 ランタイムの ActiveX コントロールです。何か案は？

また、これは展開の問題ではありません。私はコーディングと同じマシンで作業しています。このエラーは、実行可能ファイルの実行中ではなく、元のコードのデバッグ中に発生しています。

4

1 に答える 1

2

この問題に対する答えは、私の CR9 用の CRAXDRT.dll ファイルが Windows System32 フォルダーにあるということでした。VB 6.0 の参照は正しい .dll を指していましたが、何かが間違っていました。

.dll を残りの CR9 ファイルがあるフォルダー C:\Program Files\Common Files\CrystalDecisions\2.0\bin にコピーしてエラーを修正し、参照をここにリダイレクトすると、エラーが解決されます。

つまり、dll ファイルが残りの dll ファイルと一緒に正しいフォルダーにあることを確認してください。

于 2013-08-08T17:48:49.297 に答える