Calculs et validation de données dans l'événement ColumnChanged d'un dataTable

Version imprimable

Bonjour à tous,
J'ai plusieurs petits problèmes avec mon programme que je n'arrive pas du tout à résoudre malgré tout mes efforts. Je pense que ces problèmes sont fortement liés entre eux.
Donc voilà, J'utilise une DataTable pour stocker des taches, (chaque ligne représentant une tache). Je fait un 1er calcul sur ces taches dés qu'une valeur change dans l’évènement ColumnChanged pour calculer par exemple si la tache est en retard ou terminé....etc. Ensuite je fait un 2eme calcul pour comptabiliser le nombre de tache terminé. (J'ai un contrôle CheckBoxTERMINE Bindé directement avec la table). Le mieux est que je vous montre le bout de code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Private Sub TableTachesColumnChanged(sender As System.Object, e As System.Data.DataColumnChangeEventArgs) Dim ColonneName As String = e.Column.ColumnName Dim ValeurProposed As Object = e.ProposedValue Call CalculLaLigne(e.Row, "ColumnChanged", ColonneName, ValeurProposed) BindingSourceTaches.EndEdit() Call CalculLeNombreDeTacheTerminé End Sub Private Sub CalculLaLigne(ByVal Row As DataRow, ByVal EventSource As String, Optional ByVal ColonneName As String = Nothing, Optional ByVal ValeurProposed As Object = Nothing) ' Cette procédure fait une lecture de la valeur Proposed ainsi que toutes les valeurs des autres colonnes. Elle peut retourner des résultats dans le DataRow ou décider de faire une annulation avec CancelEdit ...... If CalculDoitêtreAnnulé = True then Row.CancelEdit End Sub Private Sub Call CalculLeNombreDeTacheTerminé Dim Table As DataTable = dtTableTaches Dim expression As String Dim sortOrder As String Dim foundrows() As DataRow expression = TableTaches.TERMINE & "='True'" sortOrder = TableTaches.ID_TACHE & " ASC" foundrows = Table.Select(expression, sortOrder) NbTachesTerminé = foundrows.Count End Sub
Problème 1
Hypothése de calcul initial : j'ai 3 taches Terminé sur 4 taches au total.
Avec la ligne BindingSourceTaches.EndEdit() présente dans le code :
-> Je décoche le Statut Terminé, j'obtiens NbTachesTerminé = 2. Ensuite si j'éxecute le code BindingSourceTaches.Current ("TERMINE") = True , j'obtiens NbTachesTerminé = 2 :?
Sans la ligne BindingSourceTaches.EndEdit() présente dans le code : (Toujours en partant de l'état initial)
-> je décoche le Statut Terminé, j'obtiens NbTacheTerminé = 3 :?

Problème 2 et 3 :
Hypothèse de calcul : MaProcédure CalculLaLigne doit décider d'invalider la modification TERMINE = True en exécutant CancelEdit.
Donc je coche Terminé=True, CancelEdit s’exécute bien , les données dans la table on bien été annulé (TERMINE=False) mais mon contrôle (CheckBoxTERMINE) n'est pas rafraîchi malgré le Binding. Il se comporte comme si il gardait le Statut True, résultat : quand je change de ligne du DataGridView la procédure CalculLaLigne s'exécute à nouveau :?.
J'aimerais que la procédure ne s'exécute qu'une seul fois (Problème 2).
J'aimerais aussi que mon contrôle soit raffraichi après l’annulation (problème 3).
Pour le probléme 3 : J'ai essayé BindingSourceTaches.CurrencyManager.Refresh() dans l’évènement LostFocus du CheckBoxTERMINE mais c'est pas très propre. (cela modifie la sélection de la cellule sur le DataGridView, j'aimerais plutôt agir sur le Binding du contrôle ChekBoxTERMINE (pour autant que cela soit la solution) mais je ne sais pas faire.

Voilà, ca fait beaucoup d'un coup mais comme je disais je pense que tout les problèmes sont liées et ça fait trés longtemps que je tourne autour de ces problèmes sans trouver de solution.

J'ai peu d'espoir d'arriver à trouver une solution qui règle tout (il faudrait que vous puissiez reproduire mon code ce qui n'est pas simple vu la taille du programme, sinon je suis prêt à donner mon programme source si quelqu'un veux bien regarder) C'est l'unique et dernier problème dans mon programme que j'ai gardé pour la fin voyant que je n'y arrivais pas et j'espère vraiment que vous pourrez m'aider.

12/06/2012, 19h35
BasicZX81

Bonsoir , personne n'utilise les liaisons de données visiblement. Je continue de chercher mais si vous avez une façon de procéder pour faire ce type de calculs et de validation je suis toujours intéressé.
En espérant que certains d'entre vous utilisent comme moi l’évènement ColumnChanged parce que je rame un peu :(, il me semble malgré tout que c'est le bon évènement à utiliser mais peut-être que je maîtrise mal la validation et l'annulation.
15/06/2012, 15h22
BasicZX81

Bonjour, Je n'ai pas eu beaucoup de succès avec ce post :(. Je sais qu'il y a des développeurs confirmés sur ce forum, je tente à nouveau ma chance.:mrgreen:
Mon problème est peut-être lié à une mauvaise architecture de mon programme ou je ne sais quoi. Pourtant dans c'est dans les évènements ColumnChangxx que l'on peut intercepter tous les changements d'ou qu'il viennent.
J'espère avoir une piste à mon problème ou un début de réponse.

Merci à vous.
15/06/2012, 21h55
BasicZX81
Problème 1 : résolu.
J'utilise l’évènement ColumnChanging et j'écrase la valeur proposed si je veux annuler la modification comme ceci :
Code:

1 2 3 Private Sub TableTachesColumnChanging(sender As System.Object, e As System.Data.DataColumnChangeEventArgs) e.ProposedValue = e.Row(e.Column.ColumnName) End Sub
Au passage l'article sur msdn ne fonctionne pas et pourtant ce n'est pas faute d'avoir essayé. Je cite :

Citation:

Les mises à jour étant effectuées pendant les événements ColumnChanging, RowChanging et RowDeleting , vous pouvez annuler la mise à jour en levant une exception, ce qui interrompt les modifications.

Reste les problèmes 2 et 3 : Le moins que l'on puisse dire c'est que le fonctionnement du moteur de DataBinding est plutôt obscure. le moment ou les contrôles sont mis à jours en réponse à une modification de la base de données étant inconnu.
Si je décompose les étapes (Modifications dans le sens Control vers base de données) :
1- L'utilisateur change la valeur du contrôle.
2- Le moteur de Binding envoie une notification de modification à la source.
3- Les évenements xxxxChanging sont déclenchés.
4- Je peux annuler la modification comme ci-dessus.
5- Les événements xxxxChanging et xxxxChanged continue et termine leur exécution.
Entre les étapes 4 et 5 le moteur de DataBinding ne transmet pas la notification d'annulation au contrôle.

A moins de forcer l'annulation de la valeur du contrôle du style CheckBoxTERMINE=False pendant l'étape 5 je ne vois pas comment je peux faire. Est ce que l’exécution de ces étapes dans un thread secondaire pourrait aussi régler le problème ?

J'essaye de comprendre et j'espère que vous pourrait m'aider aussi.

Bonjour à tous, je ne sais pas si ça va intéresser quelqu'un mais voici mes conclusions et ma solution après m'être arraché les cheveux. :aie:

Donc ,la seule solution que j'ai trouvé est d'utiliser une procédure spécifique intermédiaire que j'ai appelé EventFromUserControl si la modification provient d'un contrôle DataBindé.
- Donc si la modification ne provient pas d'un contrôle DataBindé (Ex: modif. par le code ou depuis un DataGridView), on utilise ColumnChanged dans lequel on peux annuler avec e.row.CancelEdit.
- Si la modification provient d'un contrôle DataBindé, on utilise une procédure EventFromuserControl spécialement destinée à lire chaque contrôle et capable de replacer le contrôle dans son état initial en cas d'annulation. La procédure CalculLaLigne à été transformé en Function de façon à pouvoir retourner la valeur original en cas d'annulation.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 AddHandler CheckBoxVALIDEAT.Enter, AddressOf EventFromUserControl ' .....j'ai fait un essai avec un CheckBox mais on peux étendre le principe à tous les contrôles Private Sub EventFromUserControl (ByVal sender As Object, ByVal e As System.EventArgs) Dim ColonneName As String = sender.DataBindings.Item(0).BindingMemberInfo.BindingMember Dim ColonneValue As Object = Nothing Dim RowView As DataRowView = BindingSourceTaches.Current Dim Row As DataRow = RowView.Row ActiveAllControlesHandler(False) If TypeOf (sender) Is TextBox Then ... ElseIf TypeOf (sender) Is ComboBox Then ... ElseIf TypeOf (sender) Is CheckBox Then ColonneValue = sender.Checked End If ColonneValue = CalculLaLigne(Row, "UserControls", ColonneName, ColonneValue) If TypeOf (sender) Is TextBox Then ... ElseIf TypeOf (sender) Is ComboBox Then ... ElseIf TypeOf (sender) Is CheckBox Then sender.checked = ColonneValue End If ActiveAllControlesHandler(True) End Sub Private Function CalculLaLigne(ByVal Row As DataRow, ByVal EventSource As String, Optional ByVal ColonneName As String = Nothing, Optional ByVal ValeurProposed As Object = Nothing) ' Cette procédure fait une lecture de la valeur Proposed ainsi que toutes les valeurs des autres colonnes. Elle peut retourner des résultats dans le DataRow ou décider de faire une annulation avec CancelEdit ...... If CalculDoitêtreAnnulé = True then Return Row(ColonneName) ' On retourne la valeur original Else Return ValeurProposed ' On retourne la valeur modifiée End Sub
Vous pouvez remarquer que j'utilise la même procédure "CalculLaLigne" dans tous les cas quelque soit l'origine de la modification, ce qui me permet d'utiliser une seule logique et un code presque complètement indépendant des contrôles.