功能实现后就想算法上面优化下面代码使用后发现复制效率还是比较低，麻烦官方或者大咖指导一下复制速度优化方案
With Tables(e.Form.Name & "_Table3")
If .TopPosition > -1 Then '如果选定区域包括数据行
Dim r As Row = .rows(.TopPosition)
For i As Integer = .BottomPosition To .TopPosition Step -1
Dim dr As Row = .rows(i)
Dim r2 As Row = Tables(e.Form.Name & "_Table4").AddNew()
For Each c As Col In r2.Table.Cols
If dr.Table.Cols.Contains(c.name) Then
r2(c.name)=dr(c.name)
'r2.save
End If
Next
dr.delete
Next
End If
End With
两表结构相同 指定列名复制和遍历效能上面有多大差异呢
[此贴子已经被作者于2020/7/17 14:23:37编辑过]
加好友 
发短信
Post By：2020/7/17 14:16:00 [只看该作者]
