VB.NET2005からCrystal Reports2008へのプレビュー処理について

[Former Member]

お世話になっております。

【環境】

Windows XP Professional Service Pack 3

Visual Studio2005 VB.NET

Crystal Report2008 SP2

Oracle11G R2

【質問事項】

VB.NET2005からCrystal Report2008（SP2）を使ってレポートを発行したいのですが「プレビュー」がうまくいきません。

「印刷」はうまくいきます。

下記に記載したクラスのCrystalReportViewer1.ReportSource = Reportで値が渡せずエラーとなります。

エラーメッセージ：「指定されたキャストは有効ではありません。」

「CrystalReportViewer1」のフォームアイテムは、Crystal ActiveX Report Viewer Control 12.0を使用しています。

フォームが悪いのでは・・・と思いアイテムの追加にてCrystalReportViewerを使おうと思ったのですがエラーとなり

使用できませんでした。

エラーメッセージ：「コンポーネント'CrystalReportViewer'を生成できませんでした。」

どうしたらプレビューができるようになるのでしょうか？

原因、解決策等どなたかご教授願います。

以下現在のコードとなります。

-

---

Dim crReportDocument As CrystalDecisions.CrystalReports.Engine.ReportDocument

crReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument

Dim crTableLogOnInfo As New TableLogOnInfo

Dim i As Integer

listnam = PrgEnv & DIR_LPT & PRN_NAME ' 出力レポート名生成

crReportDocument.Load(listnam) ' プリントジョブナンバー取得

STRDEN = Format$(Val(txtText1(TXT1_STRDEN).Text), Txt1Fmt(TXT1_STRDEN))

ENDDEN = Format$(Val(txtText1(TXT1_ENDDEN).Text), Txt1Fmt(TXT1_ENDDEN))

SqlBuf = " ' " & STRDEN & " ～ " & ENDDEN & "'"

crReportDocument.DataDefinition.FormulaFields("SeL1").Text = SqlBuf

With crTableLogOnInfo.ConnectionInfo ' ログイン情報設定

.ServerName = SevNam

.UserID = UserID

.Password = UserPw ' パスワードセット

.IntegratedSecurity = False

End With

For i = 0 To crReportDocument.Database.Tables.Count - 1

crReportDocument.Database.Tables(i).ApplyLogOnInfo(crTableLogOnInfo)

Next i

crReportDocument.Database.Tables(0).Location = WrkVIEW

crReportDocument.Refresh()

Select Case PrnMode ' 印刷モード判定

Case PRN_PRN ' プリンター出力

crReportDocument.PrintToPrinter(1, True, 0, 0)

Case PRN_CRT ' 画面表示

Dim rptForm As New Crystal.Cyrstal(crReportDocument, PRN_CRT, LST_NAM) 　'u2190クラスを以下に記載

rptForm.Show()

End Select

クラス 「Crystal」

Public Class Crystal

Inherits System.Windows.Forms.Form

Public Sub New(ByVal ReportName As ReportDocument, ByVal PrintMode As Integer, Optional ByVal ListName As String = "")

MyBase.New()

InitializeComponent()

ReportInit()

ReportShow(ReportName, PrintMode, ListName) 'レポートの印刷・表示を行う

Me.WindowState = FormWindowState.Maximized

End Sub

Public Sub ReportInit()

CrystalReportViewer1.Size = New System.Drawing.Size(1024, 738)

End Sub

Public Sub ReportShow(ByVal Report As ReportDocument, ByVal Print As String, ByVal ListName As String)

CrystalReportViewer1.DisplayGroupTree() = CrystalDecisions.Windows.Forms.ToolPanelViewType.None

CrystalReportViewer1.ReportSource = Report　u2190ココでエラーとなる

If Print = "1" Then

CrystalReportViewer1.PrintReport()

Else

Me.Text = ListName

End If

End Sub

-

---

[Former Member]

自己解決しました。参照してくださった方有難う御座いました。

参照設定で指定しているDLLをすべて選択し直したら、選択したもの以外に自動で

追加されるものがありフォームにCrystalRportViewerを貼ることができました。

CrystalRportViewerではResourceに値を渡した際「キャストエラー」とならず、

プレビュー表示できました。

Edited by: N M on Jan 17, 2011 9:43 AM