Salut tout le monde;

Je voudrai supprimer une ligne selectionner dans un Dbgrid en comparant ça clé qui est en relation avec table1
la suppresion ce fait juste au niveau de la Dbgrid.dataset mais pas dans la table1


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
19
procedure TFSUPMANDAT.BitBtn3Click(Sender: TObject);
begin
table1.open;
 
 
  if DbGrid1.Datasource.Dataset.RecordCount = 0 then
   Exit;
  if DbGrid1.Datasource.Dataset.RecNo >= 0 then
 
 
 
      if MessageDlg('Voulez vous vraiment supprimer cet enregistrement ?',
                          MtConfirmation, MbOkCancel, 0) = mrOk then
 
      if DBGrid1.DataSource.DataSet.FieldByName('Nummdt').value =table1.FieldByName('Nummdt').AsString then
       if DBGrid1.DataSource.DataSet.FieldByName('Nligne').value =table1.FieldByName('Nligne').AsString then
 
      DbGrid1.Datasource.DataSet.Delete;
      table1.delete;