Rapport sur Microsoft visuel studio 2008

    Private Sub CreerRapport(ByVal pLaCollection As Type_Collection)

        Dim LesDonnes As New MonDataSet

        Dim Lacollection = pLaCollection

        Dim dt As DataTable = LesDonnes.TableVideo
        Dim Indice As Int32 = Lacollection.Count - 1
        Dim Boucle As Int32 = 0
        Dim Ent As Type_Entite = Nothing
        Dim Ligne As DataRow

        For Boucle = 0 To Indice
            Ent = LaCollection.Item(Boucle)
            Ligne = dt.NewRow()
            Ligne("MediaNumeroCassette") = Ent.MediaNumeroCode
            Ligne("MediaCassette") = Ent.MediaCassette
            Ligne("MediaAnnee") = Ent.MediaAnnee
            Ligne("MediaTitreFrancais") = Ent.MediaTitre_Francais
            Ligne("MediaEpisode") = Ent.MediaEpisode
            Ligne("MediaNationalite") = Ent.MediaNationalite
            Ligne("MediaStyle") = Ent.MediaStyle
            Ligne("MediaCategorie") = Ent.MediaCategorie
            Ligne("MediaDuree") = Ent.MediaDuree
            Ligne("MediaCote") = Ent.MediaCote
            Ligne("MediaRealisateur") = Ent.MediaRealisateur
            Ligne("MediaSerie") = Ent.MediaSerie
            Ligne("MediaTitreAnglais") = Ent.MediaTitreAnglais
            Ligne("MediaMode") = Ent.MediaMode
            Ligne("MediaFicheOK") = Ent.MediaFiche_OK
            Ligne("MediaStock") = Ent.MediaStock
            Ligne("MediaClasse") = Ent.MediaClasse
            Ligne("MediaType") = Ent.MediaType
            Ligne("MediaQualite") = Ent.MediaQualite
            Ligne("MediaCritiques") = Ent.MediaCritiques
            Ligne("MediaActeursP") = Ent.MediaActeurs_P
            Ligne("MediaActeursS") = Ent.MediaActeurs_S
            dt.Rows.Add(Ligne)
        Next

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

        Dim FenRap As New FormRapports(Contexte)

        FenRap.ViewReport(LesDonnes)
        FenRap.Show()

    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(Contexte.CheminRAP & "RapportVideo.rpt")
  Report.SetDataSource(LeDataSet)
  CrystalReportViewer.ReportSource = Report

  Me.Panneau.Controls.Add(CrystalReportViewer)

 End Sub

    Public Sub ViewReport(ByVal ReportName As String, ByVal TableName As String, ByVal QueryString As String, Optional ByVal [Parameter] As String = "")

        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"

        Dim Adapter As New OleDb.OleDbDataAdapter
        Dim DataSet As New DataSet

        Adapter = GetDataAdaptor(QueryString)
        Adapter.Fill(DataSet, TableName)

        Report.Load(Dossier_RPT & ReportName)
        Report.SetDataSource(DataSet)
        If Not [Parameter] = "" Then
            Report.SetParameterValue(0, [Parameter])
        End If
        CrystalReportViewer.ReportSource = Report

        Me.Panneau.Controls.Add(CrystalReportViewer)

    End Sub

    Public Sub ViewReport(ByVal ReportName As String, ByVal LeDataSet As DataSet, Optional ByVal [Parameter] As String = "")

        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 & ReportName)
        Report.SetDataSource(LeDataSet)
        If Not [Parameter] = "" Then
            Report.SetParameterValue(0, [Parameter])
        End If
        CrystalReportViewer.ReportSource = Report

        Me.Panneau.Controls.Add(CrystalReportViewer)

    End Sub