Bonsoir,
Je désire créer des états avec cristal report.
Concernant les éditions avec une seule table, sa je sais faire.
Après m'être entrainé, j'ai tenté d'en faire avec plusieurs tables mais pas moyen ...
j'ai testé ma requête dans le "query builder" et cette requête me retourne le bon résultat. par contre dans le crystalreportviewer je n'ai aucune donnée...
Voici mon code :
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
16
17
18
19 Private Sub imprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imprimer.Click Dim Report As New ReportDocument Dim Dataset1 As New DataSet Dim Conn As New SqlClient.SqlConnection("server=192.168.0.16\SQLEXPRESS;Initial Catalog=XXXXXXX;User Id=XXXXXX; password =XXXXXX ;") Dim Dadap As New SqlClient.SqlDataAdapter("SELECT dossier.num_dossier, dossier.nom_client, dossier.prenom_client, dossier.date_adhesion, activite.lib_activite, regime.lib_regime, agence.lib_agence FROM dossier INNER JOIN activite ON dossier.code_activite = activite.code_activite INNER JOIN regime ON dossier.code_regime = regime.code_regime INNER JOIN agence ON dossier.code_agence = agence.code_agence WHERE (agence.lib_agence = '" & combo_agence.Items.ToString & "')", Conn) 'ici on charge le rapport Report.Load("F:\XXXX\XXXX\XXXX\Resources\etat_adhesion_annee_par_bureau.rpt") Try 'ici on charge le dataset Dadap.Fill(Dataset1, "dossier, agence, regime, activite") 'On modifie la source de données Report.SetDataSource(Dataset1) 'cas de la visualistaion dans le reportview crvETAT.ReportSource = Report Catch ex As Exception MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK) End Try End Sub
Merci d'avance de vos réponses !!!!
Partager