実行ファイル (ID：102288)

名前

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

本文

YuOさん、ご助言ありがとうございます。
VB初心者の為、YuOさんのご助言が理解できません。
現在のコードは以下のの通りなのですが、どのように
記述すればよいのでしょうか？
*******************************************************
Public Class frmCryRepXIR2View
    Private Sub frmCryRepXIR2View_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Label1.Text = "C:TEST.RPT"

' CrystalReportsオブジェクトの生成
  Dim Report As CrystalDecisions.CrystalReports.Engine.ReportDocument
  Report = New CrystalDecisions.CrystalReports.Engine.ReportDocument

Dim sReportFile As String = Label1.Text
  Report.Load(sReportFile, CrystalDecisions.Shared.OpenReportMethod.OpenReportByTempCopy)

'// プレビュー表示 //
  Me.CrystalReportViewer1.ReportSource = sReportFile

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

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

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

' ビューアーの表示
   Me.Show()
  'Me.CrystalReportViewer1.Refresh()
   Me.CrystalReportViewer1.RefreshReport()

End Sub
End Class

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

戻る