「DataTable」オブジェクトを利用することで、表示する列やレコード、SQL関数などでテーブルを整形しクリスタルレポートにセットすることができます。
1.データベースを読込み、「DataTable」オブジェクトを生成しセットします。
2.「ReportDocument」にセット。
'インポートクラス Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Imports System.Data.OleDb
'ReportDocument(.RPT)のディレクトリパス設定 Dim reportPath As String = "ファイルパス" & "ファイル名.rpt" 'レポートをロード RD.Load(reportPath) 'ReportDocumentのオブジェクト生成 Dim RD As New ReportDocument 'データベース接続 Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\販売管理B.mdb;") Dim SQLCm As OleDbCommand = Cn.CreateCommand Dim Adapter As New OleDbDataAdapter(SQLCm) Dim Table As New DataTable '例:"select 社員コード,氏名,フリガナ,所属,性別,給与,手当 from [社員マスタ] where 社員コード between ""0001"" and ""0010""" SQLCm.CommandText = "SELECT文" Adapter.Fill(Table) 'データソースをレポートにセット RD.SetDataSource(Table) 'CrystalReportViewerへReportDocumentを渡す() CrystalReportViewer1.ReportSource = RD