Crystal report

    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

    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