table2 nin before postunda table1 e kayıt atamak

[barol]

delphi7 ve sqlserver 2000 kullanıyorum...
formumda table1 ,dbgrid1 ve table2, dbgrid2 var table1 table2 nin mastersource u..dbgrid2 de variskm şeklinde bir alan var oraya değer girildikten sonra table2 nin beforeposttunda table1 in guncel km alanına bunu guncelleştirmesini istiyorum ...fakat değişiklikleri onaylatmak için messagedlg kullandım kayıt yapılsınmı sorusuna evet dedğimide sürekli olarak kayıt yapılsın mı diye soruyor ve kayıt yapmıyor umarım deridimi anlatabilmişimdir.
anladığım kadarıyla dbgirdde cok fazla kayıt oldugu için her satır için bu soruyu soruyor ama ben sadece son girilen değeri atmasını istiyorum..


kod....
procedure TFormAracKmgun.TBL2BeforePost(DataSet: TDataSet);
begin
if messagedlg('Yapılan Değişiklikler kaydedilsinmi?',mtconfirmation,[mbyes,mbno,mbcancel],0)=mryes then
begin
TBLArac1.Edit;
TBLArac1.FieldValues['guncelkm']:=DBGrid2.Fields[3].Text;
TBLArac1.Post;
end;
end;

[poshet303]

Neden bu işlemi AfterPost ta yapmayı düşünmüyorsunuz.

Muhtemelen Siz Master tabloyu Edit moduna sokmak istediğnizde Detail tablonun Post event ı tetikleniyor. Bu normal.

AfterPost a aynı işlemi sorunsuz halledebilirsiniz.