First:
The line number where you saved the location before you refreshed it
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
Navigate to New line number after second refresh
Procedure Xxxclass.unlockpositionex;
Begin
If Active Then
Begin
If not IsEmpty then
If Fhistoryrecno < 0 then//process Edit status, skip directly to the last record
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
When you refresh the current table, how do you go back to where you were last time you refreshed it?