刷新是用adoquery1.close;adoquery1.open;如何在刷新后光标回到当前记录(该录不在最后和最前,不定位)
解决方案 »
- 使用APIHOOK拦截WSARecv的问题
- 制作了一软件,操作ACESS数据库,刻在光盘上运行,结果......
- 过程或函数里 Free 作用是否 等同 FreeandNil
- 请大家帮忙推荐好的打包软件,高分回报!
- dbgrid问题
- Delphi的工具的问题。各位大哥大姐帮帮忙
- 请问高手怎样把开始菜单中的 开始 换成别的字符
- 使用WEBSNAP生成的网页中的按钮,怎样把英文提示改为中文?
- 怎样用语句来创建一个ODBC引擎?
- 大数据量操作,如何提高效率,并且防止程序死锁!(我真的没分了!!!)
- 我把一个form加到dpk中,How调用dpk包中的form?
- 还是论坛关闭前的问题,400分求两本书!!!
I:integer;
begin
I := ADOQuery1.RecNo;
ADOQuery1.Close;
ADOQuery1.Open;
ADOQuery1.RecNo := I;
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var ch:string;
s:TBook;
begin
if key=13 then
begin
//he:=he-(ki-table1.fieldbyname('err_qty').asinteger);
with Table1 do
begin
S := GetBook; //给书签赋值;就是你要回来的地方;
try
FindPrior; //执行处理操作;
active:=false;
active:=true;
GotoBook(S); //回到你设置的书签处;
next;
finally
FreeBook(S); //释放掉书签所占用的内存空间;
end;
end;
//edit1.text:=inttostr(he);
//edit2.Text:=table1.fieldbyname('err_qty').AsString;
end;
end;
刷新后用locate找到就OK啦行不行啊?????