QA@IT

VB.NET 型変換エラー

6379 PV

VS2010PROにて型の変換が出来ずに困っております。
ご教授下さい

下記コードを実行すると、※の部分で止まり、下記メッセージが表示されます

invalid cast exception はハンドルされません。
型 'WindowsApplication1.CrystalReport4' のオブジェクトを型 'WindowsApplication1.CrystalReport1' にキャストできません。
と表示されます

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim report As CrystalReport1 = Form4.CrystalReportViewer1.ReportSource ※

report.SetDataSource(dt)
report.Refresh()

Form4.Show()
Form4.Activate()

End Sub

メッセージが表示されないようにする為に、どうすれば良いでしょうか?
ご教授下さい

回答

型 'WindowsApplication1.CrystalReport4' のオブジェクトを型 'WindowsApplication1.CrystalReport1' にキャストできません。

この内容の通りCrystalReport4のオブジェクトをCrystalReport1の変数に
代入している為エラーとなっています。

Dim report As CrystalReport1 = Form4.CrystalReportViewer1.ReportSource 

Dim report As CrystalReport4 = Form4.CrystalReportViewer1.ReportSource 

に変更すればエラーはでなくなると思います。
それで処理が正しいのかは判断してください。

編集 履歴 (0)
ウォッチ

この質問への回答やコメントをメールでお知らせします。