Méthode BindingSource.MoveNext trop lente

Bonjour à tous, j'ai une procédure qui s’exécute depuis le Form.Load et qui fige l'affichage durant le temps de calcul de celle-ci.
Cette procédure parcours toutes les lignes d'une DataTable au travers du Bindingsource, dans le but d'actualiser certaines données de la table.

Cause du ralentissement :
En plaçant plusieurs chronomètres dans le code j'ai trouvé la cause du ralentissement. Il s'agit de la méthode BindingSource.MoveNext qui prends 250ms (sur un PC Core2Duo) alors que le reste du code prends 10ms maxi. (Si j'ai 20 lignes ça fait donc 5s). J'ai vérifié, cette commande MoveNext ne lève aucun autre évènement, alors en cherchant un peu plus je me suis appercu que ce sont 2 controles DateTimePicker Bindé sur la propriété "Value" qui sont à l'origine de ce ralentissement. (En bidant sur la propriété "Text" ou en supprimant carrément les 2 liaisons de données ça va beaucoup mieux mais je souhaite rester bindé sur la propriété "Value" ).

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub DataRefresh() For n = 0 To BindingSourceTaches.Count - 1 Dim RowView As DataRowView = CType(BindingSourceTaches.Current, DataRowView) Dim Row As DataRow = RowView.Row Call CalculRowValues(Row) ' Fait des calculs pour actualiser certaines données de la Table. Call WriteRowValues(Row) BindingSourceTaches.MoveNext() ' s’exécute en 250ms environ !!! Next BindingSourceTaches.MoveFirst() End Sub

---

Questions/solutions :
Avez vous une idée ? J'ai cherché une solution pour suspendre la liaison de données pendant le calcul mais j'ai pas trouvé. J'ai dans l'idée aussi de faire les calculs directement sur le DataTable mais comment parcourir la dataTable sans modifier la position courrante du Bindingsource ?

Toutes idées ou aide sera la bienvenue.

J'ai trouvé, c'était tout simple. Il y a des moments ou je cherche des complications là ou il y en a pas. :aie:
Il suffisait de parcourir la Collections Rows de la DataTable. Résultat : 100ms pour exécuter l'ensemble de la procédure. Si on compare à 5s ça fait une sacré différence.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub DataRefresh If dtTableProjets.Rows.Count > 0 Then Try For i = 0 To dtTableProjets.Rows.Count - 1 Dim Row As DataRow = dtTableProjets.Rows(i) Call CalculRowValues(Row, "RowChangingOnLoad") Call WriteRowValues(Row, "RowChangingOnLoad") Next Catch ex As Exception End Try End If End Sub

---