procedure TForm1.Button4Click(Sender: TObject);
begin
if ADOTable1.Eof=false then
begin
ADOTable1.Prior;
end
procedure TForm1.Button5Click(Sender: TObject);
begin
if ADOTable1.Eof = False then
begin
ADOTable1.Next;
end;

但翻到最后一页时就不能翻上一页了。不知道ADO有没有检查但前是否是在第一页的函数。
或者有别的方法解决？

[此贴子已经被作者于2007-8-31 3:32:21编辑过]

procedure TForm1.Button4Click(Sender: TObject);
begin
if ADOTable1.Eof=false then
begin
ADOTable1.Prior;
end
这段改一下吧：
procedure TForm1.Button4Click(Sender: TObject);
begin
if ADOTable1.Bof=false then
begin
ADOTable1.Prior;
end

谢谢你了