数据表同步复制
数据同步复制，一个大类表A,字段id,title，产品表b,字段id,Aid（大类id）,title，那么我怎么能同时把这两个表的数据复制到另外一个表成为新增加的记录呢，并且表B中的Aid还要和表A中的字段id值对应。
------解决方案--------------------
c,d的id不要设置为自动增长的，就可以使用下面的语句一次性全部转移过去了

注意：如果要同步多次，记得删除c,d中的所有后再执行，要不会反复添加相同的内容了

delete from c

insert into c select id,title from a

delete from d

insert into d select id,aid,title from b

------解决方案--------------------
dim temp_,id_,ors1,ors2,ors3
crers ors1,"select khid,jbtitle,jbfen,YearId,IsSh,AddDate from khjbnrbt2 order by khid asc"
do until ors1.eof
crers ors2,"select top 1 khid,jbtitle,jbfen,YearId,IsSh,AddDate from khjbnrbt"
ors2.addnew()
ors2(1)=ors1(1)
ors2(2)=ors1(2)
ors2(3)=zpId
ors2(4)=ors1(4)
ors2(5)=ors1(5)
ors2.Update()
temp_ = ors2.bookmark
ors2.Bookmark = Temp_
ID_ = ors2(0)
ors2.close
crers ors3,"select jbnrId,jbbtId,jbnrbt,YearId,jbnrfen,IsLock,AddDate,paixu from jbnrbt2 where jbbtId= "&ors1(0)
i=1
do until ors3.eof
crers ors2,"select top 1 jbnrId,jbbtId,jbnrbt,YearId,jbnrfen,IsLock,AddDate,paixu from jbnrbt"
ors2.addnew()
ors2(1)=ID_
ors2(2)=ors3(2)
ors2(3)=zpId
ors2(4)=ors3(4)
ors2(5)=ors3(5)
ors2(6)=ors3(6)
ors2(7)=ors3(7)
ors2.Update()
ors2.close
ors3.movenext
loop
ors3.close
ors1.movenext
loop
'echo 1
ors1.close
set ors1=nothing 参考下我这个吧，跟你那个差不多。