VB代码供参考
dim rs1 as mapobjects2.recordset
dim rs2 as mapobjects2.recordset
set rs1=layer1.records
set rs2=layer2.records
rs1.movefirst
rs2.movefirst
with newLayer.records
do
while not rs1.eof
.addnew
.fields("Shape").value=rs1.fields("Shape").value
'其它属性
.update
rs1.movenext
loop
do
while not rs2.eof
.addnew
.fields("Shape").value=rs2.fields("Shape").value
'其它属性
.update
rs2.movenext
loop
end with