Discussion :

[djelloharmel]

Bonsoir

Je suis coincé sur l'affichage d'un état crystal report

voilà mon code

Code :

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

1
2
3
4
5
6
SqlCon.Close
Dim Cmd As New SqlCommand("Select * from v_plainte",SqlCon)
Dim dr As SqlDataReader
Dim Rapport As New CrystalReport1
Rapport.SetDataSource(dr)
CrystalReportViewer1.ReportSource=Rapport

"CrystalReport1" est souligné et il est affiché en infobulle le message suivant "Type CrystalReport1 non reconnu"

Que dois je faire pour surmonter une fois de plus cette épreuve.

[djelloharmel]

j'ai réussi après mille péripéties à afficher un état crystalreport. je vous enverrai le code dans mon prochain message. le hic, c'est qu'aucune donnée n'y est affichée.

[djelloharmel]

J'affiche proprement les états crystalreport.

je vous communique le code à toutes fins utiles

Code :

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

Imports CrystalDecisions.CrystalReports.Engine

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub FicheTechnique()
        Dim crt As New ReportDocument
        crt.Load("D:\LGHI\CyberPlainte\WebSite Cyberplainte\rp_fiche_numero_suspect.rpt")
 
        Dim bTab As New DataTable
        Dim CMD As New SqlCommand("select * from v_plainte", SqlCon)
        Dim Dadpter As New SqlDataAdapter(CMD)
        Dim ds As New DataSet
        Dadpter.Fill(ds, "v_plainte")
        bTab = ds.Tables("v_plainte")
 
        crt.SetDataSource(ds.Tables("v_plainte"))
        crystalreportviewer1.ReportSource = crt
end sub

merci à tous