主题：A表数据转移到B表

两个同样表，把A表里面所有数据转移到B表，数据虽然可以转过去，总是弹窗提示错误，帮忙看看代码那里错了，谢谢！代码放在按键里面

Dim a As Table = Tables("总工资表")
Dim b As Table = Tables("工资存档")
For r As Integer = 0 To a.Rows.Count - 1
    b.AddNew
    For c As Integer = 0 To a.cols.Count - 1
        b.Current(c) = a.Rows(r)(c)
    Next
   
Next
For r As Integer = a.rows.Count - 1 To 0 Step - 1
    a.rows(r).Delete
Next

 

此主题相关图片如下：弹窗错误代码.png