Crystal Reports XI R2 (ID:102254)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

魔界の仮面弁士さん、何度もお手数おかけしております。
なかなか、うまくいかないので、ネットで色々探していたら
以下のようなコーディングが記載されていました。
*************************************************
' CrystalReportsオブジェクトの生成
Dim Report As CrystalDecisions.CrystalReports.Engine.ReportDocument
Report = New CrystalDecisions.CrystalReports.Engine.ReportDocument

Dim sReportFile As String = "C:\TEST.RPT"
Report.Load(sReportFile,CrystalDecisions.Shared.OpenReportMethod.OpenReportByTempCopy)

'// プレビュー表示 //
Dim frmPreview As New Form1
frmPreview.CrystalReportViewer1.ReportSource = sReportFile

' レポート内のテーブルの接続情報を設定
Dim logOnInfo As New CrystalDecisions.Shared.TableLogOnInfo
logOnInfo.ConnectionInfo.ServerName = "@@@"
logOnInfo.ConnectionInfo.DatabaseName = "@@@"
logOnInfo.ConnectionInfo.UserID = "@@@"
logOnInfo.ConnectionInfo.Password = "@@@"
logOnInfo.TableName = "@@@"

' logOnInfosコレクションにlogOnInfoオブジェクトを追加します。
frmPreview.CrystalReportViewer1.LogOnInfo.Add(logOnInfo)

For Each Table As CrystalDecisions.CrystalReports.Engine.Table In Report.Database.Tables
' logOnInfosコレクションにlogOnInfoを追加
  Table.ApplyLogOnInfo(logOnInfo)
Next

' ビューアーの表示
frmPreview.Show()
**********************************************************
実行したところForm1のボタンをClickすると
もう１枚Form1が表示され、そのなかにクリスタルレポートが表示されました。
ボタンをClickするとそのフォーム上でクリスタルレポートを表示
する方法はあるのでしょうか。

←解決時は質問者本人がここをチェックしてください。

戻る