bonjour
a chaque fois que je veu charger mon etat crystal report avec ce code cela me renvoi une erreur me disant "echec lors du chargement" qqun peut il m'aider svp.
voici mon code
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.ReportSource.RemoteReportSource
Public
Class F_crystal
Inherits System.Windows.Forms.Form
#
Region " Code généré par le Concepteur Windows Form "
Public
Sub
New()
MyBase.New()
'Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()
'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
End
Sub
'La méthode substituée Dispose du formulaire pour nettoyer la liste des composants.
Protected
Overloads
Overrides
Sub Dispose(
ByVal disposing
As
Boolean)
If disposing
Then
If
Not (components
Is
Nothing)
Then
components.Dispose()
End
If
End
If
MyBase.Dispose(disposing)
End
Sub
'Requis par le Concepteur Windows Form
Private components
As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée en utilisant le Concepteur Windows Form.
'Ne la modifiez pas en utilisant l'éditeur de code.
'Friend WithEvents CrystalReportViewer1 As CrystalDecisions.Windows.Forms.CrystalReportViewer
Friend
WithEvents CrystalReportViewer1
As CrystalDecisions.Windows.Forms.CrystalReportViewer
<System.Diagnostics.DebuggerStepThrough()>
Private
Sub InitializeComponent()
Dim resources
As System.Resources.ResourceManager =
New System.Resources.ResourceManager(
GetType(F_crystal))
Me.CrystalReportViewer1 =
New CrystalDecisions.Windows.Forms.CrystalReportViewer
Me.SuspendLayout()
'
'CrystalReportViewer1
'
Me.CrystalReportViewer1.ActiveViewIndex = -1
Me.CrystalReportViewer1.Location =
New System.Drawing.Point(8, 8)
Me.CrystalReportViewer1.Name = "CrystalReportViewer1"
Me.CrystalReportViewer1.ReportSource =
Nothing
Me.CrystalReportViewer1.Size =
New System.Drawing.Size(968, 608)
Me.CrystalReportViewer1.TabIndex = 0
'
'F_crystal
'
Me.AutoScaleBaseSize =
New System.Drawing.Size(5, 13)
Me.ClientSize =
New System.Drawing.Size(976, 614)
Me.Controls.Add(
Me.CrystalReportViewer1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon =
CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "F_crystal"
Me.Text = "Feuille d'afféctation de composant informatique"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
Me.ResumeLayout(
False)
End
Sub
#
End
Region
Private
Sub F_crystal_Load(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles
MyBase.Load
Dim myReport
As
New ReportDocument
myReport.Load(Application.StartupPath & "\Etats\C_config.rpt")
Me.CrystalReportViewer1.ReportSource = myReport
End
Sub
Private
Sub CrystalReportViewer1_Load(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
'*************************************
'insert le crystal dans la feuille
'*************************************
End
Sub
Afficher la suite