看看这段程序有什么问题?(20分)

table1.tablename:='c:/11.dbf';
query1.close;
query1.sql.clear;
query1.sql.add('select table1.a,table1.b,table2.c form table1 inner join table2 on table1.a=table2.a');
query1.execsql;
batchmove1.source: =query1;
batchmove1.desktination:=table1;
batchmove1.execute;

table1.tablename:='c:/22.dbf';
query1.close;
query1.sql.clear;
query1.sql.add('select * from table3');
query1.execsql;
batchmove1.source: =query1;
batchmove1.desktination:=table1;
batchmove1.execute;

为什么老是在第一次query1.execsql时提示‘table is readonly！’？？？？
为什么用两个query分别执行就可以不出现这个错误？？？
为什么把两次抄作顺序反过来就可以呢？用了close还不可以吗？
怎么解决呢？ table1.tablename:='c:/11.dbf';
query1.close;
query1.sql.clear;
query1.sql.add('select table1.a,table1.b,table2.c form table1 inner join table2 on table1.a=table2.a');
query1.execsql;
batchmove1.mode:=bscopy;
batchmove1.source: =query1;
batchmove1.desktination:=table1;
batchmove1.execute;

table1.tablename:='c:/22.dbf';
query1.close;
query1.sql.clear;
query1.sql.add('select * from table3');
query1.execsql;
batchmove1.source: =query1;
batchmove1.desktination:=table1;
batchmove1.execute;

为什么老是在第一次query1.execsql时提示‘table is readonly！’？？？？
为什么用两个query分别执行就可以不出现这个错误？？？
为什么把两次抄作顺序反过来就可以呢？用了close还不可以吗？
怎么解决呢？

将Query组件的RequestLive设为True

不行啊，我试过