17-02-2011, 10:48 PM
يستحسن حماية مثل هذه الأسطر:
وإضافة Bookmark لاسترجاع الوضع السابق
بالتوفيق.
كود :
ADOTable1.DisableControls;
[COLOR=Blue]try
[/COLOR] ADOTable1.First;
while not ADOTable1.Eof do
begin
ADOTable1.Edit;
ADOTable1.FieldByName('montant').Value:=edtMontant.text;
ADOTable1.Post;
ADOTable1.Next;
end;
[COLOR=Blue]finally
[/COLOR] ADOTable1.EnableControls;
[color=Blue]end[/color];بالتوفيق.

