O
OHT
Unregistered / Unconfirmed
GUEST, unregistred user!
我在用TABLE做索引的时候出现Object not locked错误。
其中更新按钮代码如下：
table1.Edit;
table1.post;
with table1 do //自动排序
begin
close;
Exclusive := true;
AddIndex('','xh',[ixPrimary]);//按序号索引
open;
end;
zdhj; //自动合计
table1.Last;
------------------------------------
最主要的问题是我把这个PAS加到新的工程里可以运行，没有问题。可在这个项目里却出错。
请问各位高手解决
其中更新按钮代码如下：
table1.Edit;
table1.post;
with table1 do //自动排序
begin
close;
Exclusive := true;
AddIndex('','xh',[ixPrimary]);//按序号索引
open;
end;
zdhj; //自动合计
table1.Last;
------------------------------------
最主要的问题是我把这个PAS加到新的工程里可以运行，没有问题。可在这个项目里却出错。
请问各位高手解决