有空还是多看看书吧 var bm:TBookstr; begin bm:=table1.book; ...//query查询 table1.book:=bm; end;
使用GetBook和GotoBook 来保存表中的某个位置并返回到这个位置。var SavePlace: TBook; PrevValue: Variant; begin with Table1 do begin {取得书签,以后就能直接到相同记录} SavePlace := GetBook;{改变光标位置} GotoBook(SavePlace); FreeBook(SavePlace); end; end;
var bm:TBookstr;
begin
bm:=table1.book;
...//query查询
table1.book:=bm;
end;
SavePlace: TBook;
PrevValue: Variant;
begin
with Table1 do
begin
{取得书签,以后就能直接到相同记录}
SavePlace := GetBook;{改变光标位置}
GotoBook(SavePlace);
FreeBook(SavePlace);
end;
end;