- PR -

VB.NETからCrystalReportsのサブレポートへのデータセット

1
投稿者投稿内容
まっつん
会議室デビュー日: 2003/11/07
投稿数: 4
投稿日時: 2003-11-27 16:46
こんにちは。
色々と試してはいますが、サブレポート部分にデータ表示がされなくて困っています。
よろしくお願いします。

開発環境はVB.NET、データベースはSQL Serverです。

Dim adoCn As ADODB.Connection
Dim adoRs As ADODB.Recordset
Dim report As CrystalDecisions.CrystalReports.Engine.ReportClass
Dim diskOpts As New CrystalDecisions.Shared.DiskFileDestinationOptions

adoCn = New ADODB.Connection
adoCn.ConnectionString = "Provider=サービス名;Data Source=データソース名"
adoCn.Open(, "パスワード")
adoCn.DefaultDatabase = データベース名

adoRs = New ADODB.Recordset
adoRs.ActiveConnection = adoCn
adoRs.Open("レポート出力用SQL")

report = New "オープンレポート名"
report.Load()
report.SetDataSource(adoRs)
report.Refresh()

'エクスポート先オプションの設定
diskOpts.DiskFileName = SaveFileDialog1.FileName
report.ExportOptions.DestinationOptions = diskOpts
'レポートをPDF形式でエクスポート
report.ExportOptions.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
report.ExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
report.Export()

report.Close()
report = Nothing
adoRs.Close()
adoRs = Nothing

現在、上記プログラムでメインのレポートにはデータが表示されています。
この場合に、サブレポートのDataSourceをセットしたいのですが、どのようにしたらいいのでしょうか？
又、現状のプログラムでは出来ないのでしょうか？

ご存知の方がいらっしゃれば、教えて下さい。
よろしくお願いします。


[ メッセージ編集済み 編集者: まっつん 編集日時 2003-11-27 16:48 ]
1

スキルアップ／キャリアアップ（JOB@IT）