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;
如不是删除最后一条记录则均为正常。
以上出错的原因在于:删除一条记录后书签定位为下一条记录,
由于删除的记录为最后一条记录,所以书签无法定位所致,
不知哪位大虾可帮忙解决?先谢了!(要求不用全局变量)
可是当我删除最后一条记录再用以下过程刷新时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;
如不是删除最后一条记录则均为正常。
以上出错的原因在于:删除一条记录后书签定位为下一条记录,
由于删除的记录为最后一条记录,所以书签无法定位所致,
不知哪位大虾可帮忙解决?先谢了!(要求不用全局变量)