Foxtable(狐表)用户栏目专家坐堂 → 怎样把临时表1万行保存到订单表速度快,谢谢


  共有5998人关注过本帖树形打印复制链接

主题:怎样把临时表1万行保存到订单表速度快,谢谢

帅哥哟,离线,有人找我吗?
limit_1982
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:134 积分:1809 威望:0 精华:0 注册:2015/12/5 19:21:00
怎样把临时表1万行保存到订单表速度快,谢谢  发帖心情 Post By:2017/6/5 10:42:00 [只看该作者]

订单表为外表,应用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 & "秒")

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/5 10:52:00 [只看该作者]


 回到顶部