以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  我想用sql改善一下代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50315)
--  作者：hdffzxf
--  发布时间：2014/5/4 18:18:00
--  我想用sql改善一下代码

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

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

 应该没有更好的方法的。

 

 试试这样

 

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