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;