Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi GotoBookmark + 1 (https://www.delphipraxis.net/133293-gotobookmark-1-a.html)

HolgerCW 29. Apr 2009 11:39


GotoBookmark + 1
 
Hallo zusammen,

ich sichere mir von einer Query die Zeile so:

Delphi-Quellcode:
var
 zst_bookmark: TBookmark;

zst_bookmark:= DM_Query_Auswertung.TableAW_Filter.GetBookmark;
Nun lösche ich diese und refreshe die Tabelle.

Danach möchte ich das er in die Zeile darüber wieder zurückkehrt.

Habe es bisher so gemacht:

Delphi-Quellcode:
//Position wiederfinden
 try
  DM_Query_Auswertung.TableAW_Filter.GotoBookmark(zst_bookmark);
 except
  DM_Query_Auswertung.TableAW_Filter.Last;
 end;
Nur ist die Zeile ja gelöscht. Wie kann ich nun in die Zeile darüber zurückkehren und nciht ans Ende der Tabelle ?

Gruss

Holger

hoika 29. Apr 2009 12:29

Re: GotoBookmark + 1
 
Hallo,

merke dir doch das Feld des Primärindex (der hoffentlich existiert),
z.B. mit

Prev;
iId:= FieldByName('Id').AsInteger


und springe dann dort hin.


! Kann ein Mod. das mal nach Datenbanken schieben ? !


Heiko

HolgerCW 29. Apr 2009 12:53

Re: GotoBookmark + 1
 
Alles klar,

und wie springst Du da hin ?

auf was wender ich Prev an ?

Gruss

Holger

hoika 29. Apr 2009 13:54

Re: GotoBookmark + 1
 
Hallo,

das Prev auf dein DataSet (Table), um den vorigen Datensatz zu bekommen.
Nur aufpassen, wenn der 1. Datensatz markiert ist, dann kommt ne Exeption.

Zum Hinspringen GotoKey oder Locate des DataSets benutzen.


Heiko

HolgerCW 29. Apr 2009 13:55

Re: GotoBookmark + 1
 
Alles klar. Danke. Funktioniert


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:59 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz