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;