用QuickReportWizard作打印，第一次行，第二次就报告XXX.db busy.怎么解决？？？？(100分)

我是查询后用batchmove控件copy to 一个临时库，附源码如下：
procedure Tprint_form.FormCreate(Sender: TObject);
begin
table1.open;
table1.BatchMove(main_form.table3,batcopy);
end;

procedure Tprint_form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
table1.close;
end;

end.

procedure Tprint_form.FormCreate(Sender: TObject);
begin
table1.open;
table1.BatchMove(main_form.table3,batcopy);
***table1.close;
end;

procedure Tprint_form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
table1.close;
end;

end.
看上面的***后面的，因为你第二打印时你的程序还没有关闭过所以你的table1也没有关闭，
第二次打印时它一检查，数据表已经打开了，所以只能说table1.busy啦。

我早已经解决，不过很感谢你的帮助，给你分。