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