Bonjour a tous .Je n'arrive pas a supprimer les sélections dans un DBGrid.
J'ai ce code pour enregistrer
ok maintenant pour faire le suppression j'ai le code la
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 // Ouvrir la table au début du traitement Datamodule1.Table10.Active := True; for i := 0 to SMDBGrid1.SelectedRows.Count - 1 do begin SMDBGrid1.DataSource.DataSet.GotoBookmark(pointer(SMDBGrid1.SelectedRows.Items[i])); // Nouvelle ligne Datamodule1.Table10.Append; // On alimente Datamodule1.Table10.FieldByName('Idadherent').Value := SMDBGrid1.DataSource.DataSet.FieldByName('Idadherent').AsString; Datamodule1.Table10.FieldByName('Id_cotis').Value := SMDBGrid1.DataSource.DataSet.FieldByName('Id_cotis').AsString; // On valide Datamodule1.Table10.Post;
la suppression fonctionne, mais ce code me supprime que le premier enregistrement de la liste ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Datamodule1.Table9.Active := True; for i := 0 to SMDBGrid1.SelectedRows.Count - 1 do begin SMDBGrid1.DataSource.DataSet.GotoBookmark(pointer(SMDBGrid1.SelectedRows.Items[i])); Datamodule1.Table9.Delete; end; // Fermer la table à la fin du traitement Datamodule1.Table9.Active := False;
pouvez vous m'aider svp
Partager