主题：[求助]如何利用代码快速调用"批量更新数据"和"批量复制数据"的功能

我在自己的代码中复制数据，写的是

For Each DR As DataRow In DataTables("财务台账").DataRows
    Dim dr1 As DataRow = DataTables("一时金").AddNew
    dr1("年月") = dr("入账月份")
    dr1("一时金") = dr("金额")
    dr1("品牌") = dr("供应商名称")
Next

发现运行速度远比直接使用系统自带的"批量复制数据"速度慢

而且批量更新数据的代码不知道怎么实现，能否请大大们指点？