Discussion :

[jacko842]

Bonjour,

J'ai une form ou j'affiche les données d'un dataset dans un datagridview:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn.Open()
 
        'remplissage du dataset
        Dim ContDataAdapter As New OleDbDataAdapter(StrSql, conn)
 
        ContDataAdapter.Fill(ContDataSet, "contact")
        conn.Close()
 
        DataGridView1.DataSource = ContDataSet
        DataGridView1.DataMember = "contact"
    End Sub

Ensuite j'ai une autre form ou je voudrais imprimé ce que j'ai dans le dataset:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
cnx = New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source=" & Application.StartupPath & "\bd1.mdb")
        cnx.Open()
        adpt = New OleDbDataAdapter("Select * from contact", cnx)
        ' ici nous remplissons notre DataSet
        adpt.Fill(dtst.contact)
        ' ici on crée une instance de notre état, nous précisons que ca source est notre DataSet 
        'et que l'on veut l'afficher dans notre crystalreportviewer
        Dim report As New CrystalReport1
        report.SetDataSource(dtst)
        CrystalReportViewer1.ReportSource = report
        CrystalReportViewer1.Refresh()
        Me.dtst.Clear()
        Me.dtst.Dispose()

Dans mon fichier CrystalReport1.rpt

Je sélectionne les champs et les déplace sur le détail, mais rien ne s'affiche !

[sebnantes]

C'est une erreur dans tes déclarations je pense

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim report As CrystalDecisions.CrystalReports.Engine.ReportDocument
report = New CrystalReport1
report.SetDataSource(dtst)
CrystalReportViewer1.ReportSource = report

Déclaré de cette façon, cela devrait marché ^^

Et j'ai aussi un doute sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

adpt.Fill(dtst.contact)

Pourquoi mets-tu dtst.contact et pas dtst tout court ?

Dernière question, as-tu créé ton dataset par du code ou par le designer intégré dans Visual ?

[jacko842]

Si je supprime c est deux instructions si ça marche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
CrystalReportViewer1.Refresh()
        Me.dtst.Clear()

[sebnantes]

Avec ce que je t'ai indiqué ou le code que tu avais écrit ? (Je te demande ça pour que cela soit clair pour les gens qui passeraient sur ce sujet )