Remplir un crystal reports à l'aide d'un dataset

Signaler
Messages postés
34
Date d'inscription
vendredi 1 juillet 2011
Statut
Membre
Dernière intervention
11 février 2013
-
salut à tous,
je actuellement en vb.net et pour mes etats j'ai choisi crystal report.
Je remplis le crystal report à l'aide d'un dataset par code,mais il afficher cette erreur:
Variable objet ou variable d'un bloc With non définie au niveau de cette instruction:
Dim myDataSet As DataSet = DataSetConfiguration.ParcelleFrsDataSet



Imports CrystalDecisions.CrystalReports.Engine
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Public Class frmParcelleFrs
Private ParcelleFrsReport As ReportDocument
Private Property DataSetConfiguration As Object
Private Const QUERY_STRING As String = "SELECT * from dbo.vwParcelleParFournisseur"
Private Const DATATABLE_NAME As String = "ParcelleFrs"
Public Shared ReadOnly Property ParcelleFrsDataSet() As DataSet
Get
Dim myDataSet As DataSet1 = New DataSet1()
Dim Cnx As SqlConnection = New SqlConnection(My.Settings.GPPConnectionString)
Cnx.Open()
Dim dadMonDataAdapter As SqlDataAdapter = New SqlDataAdapter(QUERY_STRING, Cnx)
dadMonDataAdapter.Fill(myDataSet, DATATABLE_NAME)
Return myDataSet
End Get
End Property

Sub ConfigureCrystalReports()
'Dim rp As rptparcelleFrs = New rptparcelleFrs
Dim reportPath As String = Application.StartupPath & "" & "rptparcelleFrs.rpt"
ParcelleFrsReport = New ReportDocument
ParcelleFrsReport.Load(reportPath)
Dim myDataSet As DataSet = DataSetConfiguration.ParcelleFrsDataSet
ParcelleFrsReport.SetDataSource(myDataSet)
rptMyCrystalReportViewer.ReportSource = ParcelleFrsReport


'rp.SetDataSource(myDataSet)



End Sub

Private Sub frmParcelleFrs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ConfigureCrystalReports()

End Sub


End Class