table1.Close;
   screen.Cursor:=crhourglass;
   i:=trunc(datetimepicker1.Date);
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.Add('select * from  '+dbname);
   query1.SQL.Add ('  where djrq >:x') ;
   query1.ParamByName('x').AsInteger:=i;
   query1.Open;
   batchmove1.Execute;
   screen.Cursor:=crdefault;
{把query1中符合条件的记录拷到表table1中,table1的 databasename,tablename在窗体create已经附值。}
执行到batchmov1.execute的时候出现table is busy。请给为大虾帮忙