关于bookmark的问题!超级郁闷ing
我周末在家里写的程序,在家里编译后,运行,一切良好!
但是到了公司,执行exe文件,一旦执行到有bookmark的程序,就报错。
出错信息:Project pdtjc.exe raised exception class EoleException
with message '书签无效。'
我家里的机器配置是
Win2000 Server(pack2)+delphi6(pack1)+SQL Server 2000(pack2)
我公司的机器配置是
Win2000 Server(pack4)+delphi6(pack2)+SQL Server 2000(pack3)
我的程序是
procedure Tgytd_crxx.BitBtn3Click(Sender: TObject);
var bk:tbookmark;
begin
bk:= manage_data.ADOQuery1.GetBookmark;//获得书签
adoquery1.Edit;
adoquery1.Post;
manage_data.adoquery1.Close;
manage_data.ADOQuery1.SQL.Clear;
manage_data.ADOQuery1.SQL.Add('select * FROM crzdxx where 行政区编号='''+login.edit2.text+'''');
manage_data.ADOQuery1.ExecSQL;
manage_data.ADOQuery1.Open;
manage_data.ADOQuery1.GotoBookmark(bk);//重新获得书签
end;
我有两个form,
一个是manage_data,放了一个dbgrideh,adoquery,adoconnect,datasource等;
一个是gytd_crxx,有若干dbedit等,以及adoquery,adoconnect,datasource;
具体执行的流程是这样的:
选中manage_data中dbgrideh中记录,自动弹出gytd_crxx,在上面修改确认。
上面那段代码就是gytd_crxx中bitbtn3的代码。
为什么会报这样的错误呢?