[已解决]数据库翻页问题

eaglecn 发布于 2007-08-21 00:07， 875 次点击

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编辑过]

2 回复

冰凝19842007-08-28 08:42

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

eaglecn2007-08-31 03:31

谢谢你了