Discussion :

[Eric Beaumard]

Bonjour,

Sur un Double-click sur une ligne d'un DBGrid (nommé "DBGridEleveSelectionnes") je cherche à mettre à jour
le champ "DansT" de la table que le DBgrid affiche avec
le code donné dans ce message. Le Dataset du DBGrid
est filtré avec "DansT = True" pour n'afficher que les
champ ayant un "DansT" true. Donc sur un double-click
le champ "DansT" de la ligne correspondante est positionné à False
et au rafraichissement suivant du DbGrid la ligne
n'est plus affichée.

Tout fonctionne bien excepté pour le dernier enregistrement: quand
je cherche à le supprimer j'ai une exception "EOleException" avec le
message "BOD ou EFO égal à True ou l'enregistrement actuel a été
supprimé. L'opération demandée nécessite un enregistrement actuel".

J'ai toujours autant de mal à comprendre la logique
des pointeurs sur champs de dataset mais bon, je
me suis fais une raison, ça doit être congénital.

Si quelqu'un pouvait m'éclairer je lui en serait reconnaissant !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
with DBGridEleveSelectionnes.DataSource.DataSet do
for i:=0 to DBGridEleveSelectionnes.SelectedRows.Count-1 do
begin
 
GotoBookmark(pointer(DBGridEleveSelectionnes.SelectedRows.Items[i]));
 
DBGridEleveSelectionnes.DataSource.DataSet.Edit;
DBGridEleveSelectionnes.DataSource.DataSet.FieldValues['DansT']:=False;
DBGridEleveSelectionnes.DataSource.DataSet.Post;
 
end;

Eric

[rsc]

Si je comprends bien, après ta dernière mise à jour, il n'y a plus rien dans ton Grid ? Le message est clair : il te dit que tu as atteint le début ou la fin du fichier (les deux en fait, puisqu'il n'y a plus rien ), et qu'il ne trouve pas d'enregistremnet courant.
Maintenant, pourquoi cherche-t-il à se positionner sur un enregistrement courant ? A mon avis, cela ne vient pas du code que tu as cité (à moins que l'emploi du GotoBookmark, mais je ne crois pas...). Peut-être une autre procédure est-elle déclenchée à ce moment ? AfterScroll, OnDataChange...?

[Eric Beaumard]

Le problème et que c'est le Post (voir mes lignes de code) qui plante
(et c'est vrai que j'aurais du le dire avant).
C'est à dire que pour ce dernier enregistrement, ce qui avait fonctionné
avec les autres ne marche plus: Avant même de sortir de l'actualisation
du champ, on plante (et pour répondre à ta question, je ne fais
plus rien après, ce qui importe peu puisqu'on plante avant).


Eric

[Rayek]

Le problème vient du fait que tu modifies la source de données du bookmark en direct.

Exemple :

3 enregistrements affcihés dans la grid: Toto,Titi,Tata
Titi est l'enregistrement courant, et tu le passes à False, vu que tu le fais en direct sur la source du bookmark, ce champ va disparaitre du filtre d'affichage.
Le problème, Titi avait la position 2 dans la liste, Comme il disparait, Tata prend la position 2 et ta boucle cherche la position 3 (bien oui tu viens de traiter la position 2) d'où l'erreur de fin ou debut.

(J'espère avoir été clair ^^)

La solution serait que que tu fasses la modification via une requete et à la fin du traitement tu rafraichis la source de données de ta grille.

[rsc]

Effectivement, je n'avais pas tilté sur le pb de boucle

La solution serait que que tu fasses la modification via une requete et à la fin du traitement tu rafraichis la source de données de ta grille.

C'est sûr que ce serait le plus propre, mais est-ce que ça ne marcherait pas simplement en modifiant dans l'ordre inverse ?

Code :

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

for i:= DBGridEleveSelectionnes.SelectedRows.Count-1 downto 0 do

[Rayek]

Effectivement, je n'avais pas tilté sur le pb de boucle

C'est sûr que ce serait le plus propre, mais est-ce que ça ne marcherait pas simplement en modifiant dans l'ordre inverse ?

Code :

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

for i:= DBGridEleveSelectionnes.SelectedRows.Count-1 downto 0 do

Oui, ca fonctionnerai aussi en utilisant une boucle décrémenté.
C'est le même problème que quand on supprime une ligne dans une liste en utilisant une boucle.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
with DBGridEleveSelectionnes,DataSource.DataSet do
for i:=SelectedRows.Count-1 downto 0 do
begin
  GotoBookmark(pointer(SelectedRows.Items[i]));
 
  Edit;
  FieldValues['DansT']:=False;
  Post;
end;

PS: J'ai modifié le With, le code devient un peu plus lisible en remplacant un des . par une , ^^