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!!的错误提供,初学,请帮忙!!