Subject GotoCurrent, Bookmark - Record not found
Author Stefan Rausch
Hi,

another Problem (IBO 4.2 F, Delphi5)...
GotoCurrent shows "Record not found" most times.

e. g.
There are two TIBOTables in my test-app (ADR1, ADR2, Instances
of the same physical Table, no Filters, same IndexFieldNames,
the KeyLinks are set automatically).

procedure TForm1.Button1Click(Sender: TObject);
begin
ADR1.Next;
ADR2.GotoCurrent(ADR1); //<<< Record not found
end;

or

procedure TForm1.Button1Click(Sender: TObject);
var
bm: TBookmarkStr;
begin
bm := ADR1.Bookmark; //bm = '000001000000000001000000000001000000'
seems to be Ok
ADR1.Last;
ADR1.Bookmark := bm; //<<< Record not found
end;

the Stack is:
TIBODataset.GetRecord('', gmCurrent, True) //<<< Result is grError
...
gmCurrent:
begin
InternalDataset.BufferRowNum := FCurRowNum;
if InternalDataset.BufferBof or //<<<
TRUE
InternalDataset.BufferEof then
Result := grError
...
TDataset.Resync([rmExact..rmCenter]) //<<< The Error occurs back here
TIBODataset.Resync([rmExact..rmCenter])
TDataset.GotoBookmark(...)
TDataset.SetBookmarkStr(...)
TIBODataset.GotoCurrent


Thanks in advance

Stefan Rausch