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 !