当你刷新当前Table时，刷新后如何回到你上一次所在位置呢？

第一：

在你刷新前保存所在位置的行号

procedure XXXClass.LockPositionEx;
begin
DisableControls;

FHistoryRecNo := 0;
FHistoryIndexName := EmptyStr;
if Active then
begin
if IndexName <> EmptyStr then
FHistoryIndexName := IndexName;
IndexName := EmptyStr;

if not IsEmpty then
if (State in [dsEdit,dsInsert]) then
FHistoryRecNo := -1
else
FHistoryRecNo := RecNo;
end;
end;

第二刷新后定位到新行号

procedure XXXClass.UnlockPositionEx;
begin
if Active then
begin
if not IsEmpty then
if FHistoryRecNo < 0 then//处理编辑状态，直接跳至最后一条记录
Last
else if FHistoryRecNo = 0 then
First
else if FHistoryRecNo > 0 then//
begin
if RecordCount >= FHistoryRecNo then
RecNo := FHistoryRecNo
else if RecordCount > 0 then
Last;
end;

if FHistoryIndexName <> EmptyStr then
begin
IndexName := FHistoryIndexName;
FHistoryIndexName := EmptyStr;
end;
end;

EnableControls;
end;

 

转载于:https://www.cnblogs.com/Morlin-julier/p/5038627.html