一个期妙的问题：

Question

if Table1.Active=True then  
  Begin
   Table1.Active:=false; 
   Table1.ReadOnly:=True;
   Table1.Active:=True;
  End
 else
   Table1.ReadOnly:=True;

Answer 1

樓上的方法可以一試(要注意,需保證在按此按鈕時,Table1不在dsEdit或dsInsert模式下)

Answer 2

我还有一事相求：
就是我的BDE数据库不支持：LOCATE，FINDKEY查询。
这是为什么呢。

Answer 3

findkey好像只能对主索引进行查找！
locate查找速度慢但是可以查找非索引字段！
你看看帮助或找找书，估计不会不支持的
有一年不对数据库编程了有点儿忘了！

Answer 4

你设置了几个索引字段？
而你又findkey了几个字段？
如果你有两个索引字段则你必须对两个都findkey!
Table1->EditKey();
Table1->FieldByName("State")->AsString = "CA";
Table1->FieldByName("City")->AsString = "Santa Barbara";
Table1->GotoKey();
这是GotoKey()的帮助文件findkey()和他要求条件一个样子，你为什么不看看书和帮助呢？
系统的看看书吧！