有关ADO数据集的BookMark问题,望高手赐教(50分)

  • 主题发起人 主题发起人 gzllich
  • 开始时间 开始时间
G

gzllich

Unregistered / Unconfirmed
GUEST, unregistred user!
我写了一个这样过程以作刷新之用,
可是当我删除最后一条记录再用以下过程刷新时DBGrid里的记录全不见了,
错误信息大概是:书签不合法;问题就在GotoBookMark上,请问如何解决?
procedure DoRefresh(dbADOds: TADODataSet);
var bkBrowse: TBookMark;
begin
with TADODataSet(dbADOds) do
begin
bkBrowse := GetBookMark;
DisableControls;
Close;
try
Open;
try
GotoBookMark(bkBrowse);
except
Last;
end;
finally
FreeBookMark(bkBrowse);
EnableControls;
end;
end;
end;
如不是删除最后一条记录则均为正常。
以上出错的原因在于:删除一条记录后书签定位为下一条记录,
由于删除的记录为最后一条记录,所以书签无法定位所致,
不知哪位大虾可帮忙解决?先谢了!(要求不用全局变量)
 
我遇到相同的问题,不知道怎么解决呀
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部