DELPHI 数据集在内存中快速查询方法

1、Bookmark

var p:pointer;

procedure TForm1.Button1Click(Sender: TObject);//加个标签

begin

  p:=cxGrid1DBTableView1.DataController.DataSet.GetBookmark;

end;   

procedure TForm1.Button2Click(Sender: TObject);//行焦点定位到标签

begin

  cxGrid1DBTableView1.DataController.DataSet.GotoBookmark(p);

end;

2、recNo 

    var i:integer;

       i:=adodataset1.recno;

       adodataset1.recno:=i;

3、locate

    单个字段
      Locate('ID', 'A001', []);

    多个字段
      Locate('ID;Name', VarArrayOf(['A001', '小三']), []);

 

var fname,fv:string;

begin

  fname:=ADOQuery.Fields.Fields[0].Name;

  fv:=ADOQuery.Fields.Fields[0].AsString;

  ADOQuery.Close;

  ADOQuery.Open;

  if ADOQuery.Locate(fname,fv, []) then

    showmessage('定位记录完成')

  else

    showmessage('定位失败。');

  //......

end;







   结果返回True/False; 即表示找到此记录/找不到,具体用法请按F1看帮助

4、CXGRID 

          i :=  View1.Controller.FocusedRowIndex;
          ds.Close;
          Ds.Open;
          View1.Controller.FocusedRowIndex := i;