- PR -

クリスタルレポートの初歩の初歩ですがお願いします。

1
投稿者投稿内容
sirouto
ベテラン
会議室デビュー日: 2004/11/05
投稿数: 50
投稿日時: 2004-11-11 11:14
いつも参考にさせております。
WEB上で帳票を作成するのに、クリスタルレポートでやってみようとしているのですが、上手く表示されません。
DataSetまでは上手く取得はできていますが、クリスタルレポートに貼り付け・表示が上手くできません。
CrystalReport1は「空のレポート」としてプロジェクトに追加しています。以下にソースを上げますので、お解かりになられる方がいらしゃったらどうかご教授お願い致します。


Private Sub Button1_Click(省略) Handles Button9.Click
Dim crReportDocument As New CrystalReport1
Dim strSQL As String
Dim strConn As String
Dim objDA As SqlClient.SqlDataAdapter
Dim objDS As New Data.DataSet
Dim i As Integer

strConn = "Initial Catalog=TEST;Data Source=TEST;User ID=TEST;Password=TEST;"
strSQL = "SELECT * FROM TABLE1"

objDA = New SqlClient.SqlDataAdapter(strSQL, strConn)
objDA.Fill(objDS, "TABLE1")

crReportDocument = New CrystalReport1
crReportDocument.SetDataSource(objDS)

CrystalReportViewer1.ReportSource = crReportDocument
CrystalReportViewer1.DataBind()
objDS = Nothing
objDA = Nothing

End Sub

以上です。宜しくお願い致します。m(_ _)m
かえで
常連さん
会議室デビュー日: 2004/09/16
投稿数: 38
投稿日時: 2004-11-11 18:17
CrystalReport1に対してデザインを作成し、その項目とデータセットの項目との連結はされていますか？

連結が出来たのち、実際の出力コードは以下の感じになると思いますが。。。

Dim docReport As As ReportDocument = New ReportDocument
docReport = "ここには対象のCrystalReport1をセット"
objDA.Fill(objDS, "TABLE1")
docReport.Database.Tables(0).SetDataSource(objDS)
CrystalReportViewer1.ReportSource = crReportDocument
CrystalReportViewer1.DataBind()

即席なので、エラーがでてしまったらすみません。。。m(_ _)m
1

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