0

我有这个简单的代码,用于打印使用 Crystal Report 生成的报告,参考版本为 13.0.4000.0,使用版本 v4.0.30319 编译。整个事情发展到一定程度,然后莫名其妙地停止工作。执行 myReportDocument.Load 行时,应用程序会停止,但不会给出任何错误消息。我尝试使用 vb.net 生成另一个项目,其中包含指向相同数据源的报告,并且一切正常。请帮我一把。谢谢

Dim id_sped As Int32
        id_sped = 1000050
        Me.LetteraVetturaTableAdapter.Fill(Me.DataSet1.LetteraVettura, id_sped)
        Dim myReportDocument As ReportDocument
        myReportDocument = New ReportDocument()
        myReportDocument.Load(My.Application.Info.DirectoryPath.ToString + "\CrystalReport1.rpt")
        Dim ds As New DataSet()
        Dim dt As New DataSet1.LetteraVetturaDataTable
        Dim ta As New DataSet1TableAdapters.LetteraVetturaTableAdapter
        ta.Fill(dt, id_sped)
        ds.Tables.Add(dt)
        myReportDocument.SetDataSource(ds)
        myReportDocument.PrintOptions.PrinterName = My.Settings.stampante_lettere
        myReportDocument.PrintToPrinter(1, False, 0, 0)
4

0 回答 0