Crystal report

Bonjour,

Il existe sans doute plusieurs façons ...

Voici comment je procède :

D'abord, je crée un objet Dataset :

//Clic droit sur le nom du projet (dans l'explorateur de solution) /
/ Ajouter / Nouvel élément / Dataset

Je construit celui ci avec les mêmes noms que je retrouve dans ma BD.

Je construit ensuite un rapport (MonRap.rpt) que j'accroche sur le
DataSet comme source de donnée.

Ensuite à l'aide d'une requète SQL, j'obtient un Datable qui me sert
à alimerter le Dataset.

Perso, Ma requète SQL alimente une collection d'objet, qui elle alimente
mon Dataset :

Et pour terminer, j'affiche le rapport .

    Private Sub CreerRapport(ByVal LaCollection As Type_Collection)

        Dim LesDonnes As New MonDataSet

        Dim dt As DataTable = LesDonnes.TableVideo
        Dim Indice As Int64 = (LaCollection.CompteurEntites - 1)
        Dim Boucle As Int64 = 0
        Dim Ent As Type_Entite = Nothing
        Dim Ligne As DataRow

        For Boucle = 0 To Indice
            Ent = DirectCast(LaCollection.Item_ENT(Boucle), Type_Entite)
            Ligne = dt.NewRow()
            Ligne("MediaNumeroCassette") = Ent.MediaNumeroCode
            Ligne("MediaCassette") = Ent.MediaCassette
            ' ...
            dt.Rows.Add(Ligne)
        Next

        Dim objRapport As New RapportVideo
        objRapport.SetDataSource(LesDonnes.Tables("TableVideo"))

        Dim FenRap As New FormRapports(Me.RepertoireBD, Me.RepertoireRPT)

        FenRap.ViewReport(LesDonnes)
        FenRap.Show()

    End Sub

la méthode New et ViewReport dans la fenêtre secondaire :

    Public Sub New(ByVal pChemin As String, ByVal pRepertoire As String)

        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()

        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Dossier_BD = pChemin
        Dossier_RPT = pRepertoire

    End Sub

Public Sub ViewReport(ByVal LeDataSet As DataSet)

	Dim Report As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument
	Dim CrystalReportViewer As CrystalDecisions.Windows.Forms.CrystalReportViewer = New CrystalDecisions.Windows.Forms.CrystalReportViewer

	CrystalReportViewer.ActiveViewIndex = 0
	CrystalReportViewer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
	CrystalReportViewer.DisplayGroupTree = False
	CrystalReportViewer.Dock = System.Windows.Forms.DockStyle.Fill
	CrystalReportViewer.Location = New System.Drawing.Point(0, 0)
	CrystalReportViewer.Name = "CrystalReportViewer"

	Report.Load(Dossier_RPT & "RapportVideo.rpt")
	Report.SetDataSource(LeDataSet)
	CrystalReportViewer.ReportSource = Report

	Me.Panneau.Controls.Add(CrystalReportViewer)

	End Sub

Cdt

Lupin