مدیریت خطا

[شفیعی]

سلام
اگر بخواهیم در سورس زیر از بروز خطا جلوگیری کنیم و یا وقتی خطا پیش می آید به رکورد بعدی منتقل شویم باید چکار کرد


begin
ADOTable1.Edit;
S:=TABLE1.Fields[I].AsString;
ADOTable1.Fields[T].AsString:=S;
ADOTable1.Post;
BREAK;
end

[Delphi Skyline]

try و Except

[شفیعی]

سلام
برای حل مشکل باید چکار کرد

[vcldeveloper]

برای حل مشکل باید چکار کرد
ظاهرا در طراحی بان اطلاعاتی تون درست عمل نکردید. یک فیلد کلید برای جدول در نظر بگیرید که مقدارش برای هر رکورد منحصر به فرد باشه.

[B_YAGHOBI]

begin
Try
ADOTable1.Edit;
S:=TABLE1.Fields[i].AsString;
ADOTable1.Fields[T].AsString:=S;
ADOTable1.Post;
Except
ADOTable1.Cancel ;
ADOTable1.Next ;
End ;
end