Code: Select all
procedure Test;
VAR B: TBookmark;
sql_Test : TMyQuery;
begin
B:=sql_Test.GetBookmark;
sql_Test.FilterSQL:='id='+sql_TestID.AsString;
sql_Bill.GotoBookmark(B);
sql_Bill.FreeBookmark(B);
end;
Code: Select all
procedure Test;
VAR B: TBookmark;
sql_Test : TMyQuery;
begin
B:=sql_Test.GetBookmark;
sql_Test.FilterSQL:='id='+sql_TestID.AsString;
sql_Bill.GotoBookmark(B);
sql_Bill.FreeBookmark(B);
end;