主题：代码执行时间太长

某表更新代码如下：

 

DataTables("生产线").DataRows.Clear

Dim f8 As New Filler

f8.SourceTable = DataTables("临时表")

f8.SourceCols = "字段1,字段2, ... ,字段12"

f8.DataTable = DataTables("生产线")

f8.DataCols = "字段1,字段2, ... ,字段12"

f8.Fill()

 

共有1400多行数据，执行了60多秒，时间实在有点长了，不知有何优化方法？

在这段代码之前共有7个表向“临时表”填数，都是零点几秒，不知为何到这就这么长时间。

 

另外在“生产线”表做“重置列”三列，也用了40多秒钟，如果有上万条记录，时间就太长了。