Subject | GotoCurrent, Bookmark - Record not found |
---|---|
Author | Stefan Rausch |
Post date | 2001-10-29T15:13:20Z |
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
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