添加的速度应该是表事件有大量的计算影响的
1、优化一下事件的计算
2、如果不想收表事件影响,可以考虑把窗口表改为sqltable使用。
自动编号也可以放到上面代码里获取
For i As Integer = .BottomPosition To .TopPosition Step -1
Dim dr As Row = .rows(i)
Dim r2 As Row = Tables(eForm.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)
End If
Next
下面的赋值没有必要放到上面Cols的循环里面
r2("自动编号)=这里使用代码获取新的编号 r2("差数")=dr("未派数量")
r2("派工数量")=dr("未派数量")
r2("金额")=dr("金额")
r2("单号")=dr("单号")
dr.delete
Next