For i =0 To mlt.Rows.Count-1 mlt.Rows(i).Clone ''复制行 mldt.Save ''保存数据 Next
就是把一个表某些符合条件的记录筛选出来后,然后全部复制一遍,当然,某一列重新设置了默认值,和原记录并不一样,克隆的时候,新记录的某列自动已填上了默认值,但感觉逐行克隆的效率还是低一些,如果用sql语句在后台处理呢,相信速度会快很多,sql的掌握还不是很熟悉,请老师们帮忙给抬手写一下,我照猫画虎修一下即可,谢谢了!