ben bir procedure yazdım update yaptıgım zaman hangi kayıttaysam o kayıta duruyor kursor
insert yaptıgımda 1 satır kayma oluyor delete yaptıgımda ise
en basa donuyor
yapmak istediğim ise delete yaptıgıysam delete yapılan kaydın bir satır önceye konumlansın
insert yaptıgımda ise insert yaptığımda ise hengi kayıtta konumluysa o kayda konumlansın
Kod: Tümünü seç
procedure Tdm.refreshdataset(Dataset:Tadoquery);
var
Abook:pointer;
SavePlace : TBookmark;
begin
with dataset do begin
if active and not (State in [dsedit,dsinsert]) then
begin
disablecontrols;
Abook:=Getbookmark;
requery();
Gotobookmark(Abook);
Freebookmark(abook);
enablecontrols;
end;
end;
end;
