可以自己编写复制函数,没什么繁琐的。
for j = 1 to AdoQuery2.Rowcount()
for i = 0 to AdoQuery2.FieldCount - 1
AdoQuery1.Fields.FieldByNumber(i).AsVariant :=
AdoQuery2.Fields.FieldByNumber(i).AsVariant
for j = 1 to AdoQuery2.Rowcount()
for i = 0 to AdoQuery2.FieldCount - 1
AdoQuery1.Fields.FieldByNumber(i).AsVariant :=
AdoQuery2.Fields.FieldByNumber(i).AsVariant
脚本中可以直接书写SQL;
DataWindow, Cool;
ADOQuery.Assign(ADOQuery1)