Discussion :

[Attila54]

Bonjour,
Je viens de tester une appli sur ma station equipée de VS2010 compilée avec le debogage activé
J'ai regardé mon .config et j'ai bien

Code :

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

<system.windows.forms jitDebugging="true" />

Je ne rencontre aucun problème

Sur la même station non equipée de VS2010 mais avec le .net framework 4 et powerpacks, Je rencontre cette boite d'erreur qui s'affiche dans mon acces a la BDD.

Une exception non gérée s'est produite dans votre application .......
La collection a été modifiée : l'opération d'énumération ne peut pas s'executer

J'ai tout les details, je mets juste le texte de l'exception :

************** Texte de l'exception **************
System.InvalidOperationException: La collection a été modifiée ; l'opération d'énumération peut ne pas s'exécuter.
à System.ThrowHelper.ThrowInvalidOperationException(ExceptionResource resource)
à System.Collections.Generic.List`1.Enumerator.MoveNextRare()
à System.Collections.Generic.List`1.Enumerator.MoveNext()
à Microsoft.VisualBasic.PowerPacks.ShapeCollection.Dispose(Boolean disposing)
à Microsoft.VisualBasic.PowerPacks.ShapeContainer.Dispose(Boolean disposing)
à System.ComponentModel.Component.Dispose()
à System.Windows.Forms.Control.Dispose(Boolean disposing)
à System.Windows.Forms.Form.Dispose(Boolean disposing)
à Calculateur.Formchoose.Dispose(Boolean disposing) dans C:\Users\secretariat.CDLV\Desktop\Calculateur vb net\Calculateur\Formchoose.Designer.vb:ligne 13 à System.Windows.Forms.Form.WmClose(Message& m)
à System.Windows.Forms.Form.WndProc(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
à System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

Voila le morceau de code concerné dans le designer du formulaire incriminé:

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
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Formchoose
    Inherits System.Windows.Forms.Form
 
    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing) ' la fameuse ligne 13
        End Try
    End Sub

j'ai, d'après moi un souci avec la petite BDD mais je ne vois vraiment pas quoi, pourrais je beneficier de vos conseils avisés ????

Merci bien

[Pol63]

problème connu déjà passé sur ce forum, bug dans les shapes du powerpack

http://channel9.msdn.com/forums/Tech...Shape-Dispose/
ca a l'air de proposer le code qui solutionne

[Attila54]

Merci pol63, c'etait bien le souci, je ne comprends pas par ailleurs pourquoi powerpack n'a pas evolué pour gerer ce bug.

Ceci posé cela m'en a amené un autre de souci, même message d'erreur mais pas la même ligne ni le même formulaire et là, je n'ai pas de shape.

L'erreur se trouve ici :

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
 Private Sub BaseForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.Text = "Database Ophtalmo.accdb"
            List.Text = "Customers List"
            Consultations.Text = "Consultations List"
            Supprimerpraticien.Text = "Delete selected customer"
            Effacerligneconsultation.Text = "Delete consultation"
            Afficher.Text = "Display the selected consultation"
            AfficherListePraticiensToolStripMenuItem.Text = "Customers List"
            GestionBaseToolStripMenuItem.Text = "Database managment"
            ExporterLaBaseToolStripMenuItem.Text = "Export the database"
            ImporterLaBaseToolStripMenuItem.Text = "Import database"
            ViderLaBaseToolStripMenuItem.Text = "Import an empty Database"
            ChargeConsultations()
            Chargepraticiens() ' pour la liste des praticiens
            selectpraticien = -1

        With Grille
             .Columns("praticien").HeaderText = "Customer"

pourtant ma datagrid contient bien la premiere colonne appelée "praticien" et mon .accdb egalement ..... je cherche le pourquoi du comment

Merci pour la résolution du premier souci

[Pol63]

même message d'erreur

je ne pense pas non ...

[Attila54]

tu avais entièrement raison pol63, j'avais effeca par megarde une colonne dans ma DB
Merci bien