مشکل این کد چیست

[davoodmz]

باسلام
برای کنترل dbnavigator در رویدار before post کد زیرا را وارد می کنم(از adoquary استفاده میکنم در فرمی دیگر به نام dm) شرطی برای ذخیره گذاشتم که بعد از ذخیره کردن اطلاعات post نمی شود و خطایی در فایل exe می دهد و وقتی کد مربوطه را از before post پاک میکنم درست می شود
کد مربوطه:
procedure TDM.Q_ghararBeforePost(DataSet: TDataSet);
begin
if dm.Q_gharar.FieldByName('per').Text<>'' then begin
q_gharar.Post;
end
else
form1.MessageDialog1.showmodal;
abort;

end;

[vcldeveloper]

لازم نیست در رویداد BeforePost دوباره متد Post را فراخوانی کنید، این کار باعث ایجاد یک لوپ میشه. فقط چک کنید که آیا فیلد موربوطه مقدار مورد نظر را داره یا نه، اگه نداشت، از Abort استفاده کنید. در صورت اجرا نشدن Abort، عملیات Post بطور خودکار بعد از اتمام BeforePost انجام میشه و نیازی نیست که شما دوباره Post را فراخوانی کنید.

[davoodmz]

با سلام
آقای کشاورز مشکل حل شد
باتشکر
داود