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 Reports 构建并保存的。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 回答