var BK :TBookMark;BK := ADOQuery1.GetBookMark;ADOQuery1.GotoBookMark(BK);

解决方案 »

  1.   

    s:=adoquery.fieldbyname('keyfield').asstring;
    ADOQuery1.Active:=False;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from score ');
    ADOQuery1.Active:=true;
    adoquery1.locate('keyfield',s,[]);
      

  2.   

    var
      m:Tbook;
    begin
      m:=ADOQuery1.getbook;
      ADOQuery1.Active:=False;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('select * from score ');
      ADOQuery1.Active:=true;
      ADOQuery1.gotobook(m);
    end; 
      

  3.   

    var
      m:Tbook;
    begin
      m:=ADOQuery1.getbook;
      ADOQuery1.Active:=False;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('select * from score ');
      ADOQuery1.Active:=true;
      ADOQuery1.gotobook(m);
    end;