|
begin
//mob.mob_index.Table1.Close;
//mob.mob_index.Table2.Close;
//mob.mob_index.Table3.Close;
Table4.CancelRange;
Table4.close;
Table4.Exclusive:=true;
Table4.AddIndex('newindex','date',[ixCaseInsensitive ]);
Table4.IndexName:='newindex';
table4.Exclusive:=false;
Table4.open;
Table4.SetRangeStart;
Table4.FieldByName('date').asdatetime:=strtodate(maskedit5.text);
Table4.SetRangeEnd;
Table4.FieldByName('date').asdatetime:=strtodate(Maskedit5.text);
Table4.ApplyRange;
end;
以上是我的代码,可是总汇出现Table is busy!!的错误提供,
初学,请帮忙!! |
|