Crystal report

Question

Bonjour à tous, 
 S'ils vous plait j'ai quelques difficultés avec CRYSTAL REPORT.
 En fait j'utilise Visual Studio 2008 team system et voudrais utiliser Crystal report pour la première fois Mais je sais pas par où commencer?
Alors si Quelqu'un peu m'aider cela me fera bcp plaisie.
Merci.

Utilisateur anonyme · Answer

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

Crystal report

1 réponse

Votre réponse

Discussions similaires

Newsletters