嘻嘻，再贴一次
procedure SaveQueryToDFW(Query:Tdataset;DfWname:String);
var
bachmove:Tbachmove;
table:Ttable;
Begin
Table:=TTable.Create(Application);
Table.Tablename:=DFWname;
Table.TableType:=ttDbase;
BatchMove.source:=Query;
BatchMove.Destination:=Table;
BatchMove.Mode:=batCopy;
try
batchMove.execute;
finally
bachMove.Free;
Table.free;
end;
end;
batcopy是拷贝数据原到一个表项中，如果表项不在，自动建立，如果在的话，先删除，
然后再根据数据域的结构建立。
如果是batAppend的话，将数据源的记录添加到记录表中，目标表必须存在（缺省）
