主题：我想用sql改善一下代码

        For i =0 To  mlt.Rows.Count-1
            mlt.Rows(i).Clone      ''复制行
           mldt.Save   ''保存数据
        Next

就是把一个表某些符合条件的记录筛选出来后，然后全部复制一遍，当然，某一列重新设置了默认值，和原记录并不一样，克隆的时候，新记录的某列自动已填上了默认值，但感觉逐行克隆的效率还是低一些，如果用sql语句在后台处理呢，相信速度会快很多，sql的掌握还不是很熟悉，请老师们帮忙给抬手写一下，我照猫画虎修一下即可，谢谢了！

 应该没有更好的方法的。

 试试这样

Dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.Filter = Tables("表A").Filter
f.DataTable = DataTables("表A") '指定数据接收表
f.Fill() '填充数据