tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^3: CSVファイルを使って、RPTデータを出力する
投稿日: 2007/09/11(Tue) 15:40
投稿者
続けます。

VB.NETのコード:

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class Form1
    Private MyConnectioninfo As New ConnectionInfo
    Private ReportDoucment As New ReportDocument
    Private Disk As New DiskFileDestinationOptions
    Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
        Try
            MyConnectioninfo.DatabaseName = GV_Str_CsvId & ".CSV"
            MyConnectioninfo.UserID = ""
            MyConnectioninfo.Password = ""
            MyConnectioninfo.ServerName = GV_Str_DsnId

            ReportDoucment.Load(GV_Str_RptId)
            Dim DTS As Tables = ReportDoucment.Database.Tables
            Dim MYDTINFO As TableLogOnInfo
            For Each MYDT As Table In DTS
                MYDTINFO = MYDT.LogOnInfo
                MYDT.ApplyLogOnInfo(MYDTINFO)
            Next
            CrystalReportViewer1.ReportSource = ReportDoucment
            CrystalReportViewer1.Cursor = Cursors.Default
        Catch ex As CrystalDecisions.CrystalReports.Engine.PrintException
            MsgBox("印刷エラー " & vbCrLf & ErrorToString(ex.ErrorID) & " (" &             ex.Message.ToString & ")")
        End Try
    End Sub
End Class

以上のように処理したら、昨日のエラーを解決されましたが、レポート出力のスピードはとても遅いです。どの原因がわかりませんので、教えていただけませんでしょうか。どのように修正すれば、よろしいでしょうか。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。