订单表为外表，应用filler数据填充器 把临时表移动1万行到订单要28秒，可是我直接增加行1万行数据到订单表才2秒，可见

表与表应用数据填充器不是最佳的选择，不知道表与表移动大量数据哪种方法速度快？

Dim dt As Date = Date.Now
e.Form.StopRedraw
SystemReady = False
Try
    Tables("订单").StopRedraw
     Dim f As New Filler
    f.SourceTable = DataTables("临时表") \'指定数据来源
    f.SourceCols = "产品,数量,客户,时间" \'指定数据来源列
    f.DataTable = DataTables("订单") \'指定数据接收表
    f.DataCols = "产品,数量,客户,时间" \'指定数据接收列
    f.Fill() \'填充数据       
    Tables("订单").ResumeRedraw
    Tables("订单").DataTable.Save
    Catch ex As Exception
    MessageBox.Show("追加数据失败")
End Try
SystemReady = True
e.Form.ResumeRedraw
MessageBox.Show("消耗" & (Date.now - dt).Totalseconds & "秒")

 这种方法

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=98689&skin=0