主题：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

如果通过按键把A表数据全部转移到B表，老师指导一下怎么可以实现，感谢！

放在里面没任何反应，

 

放在表事件里面就一直弹窗这样提示
此主题相关图片如下：弹窗截图2.png

把两个表的currentchanged事件里面代码全删了还是弹窗前面一样

找到问题地方了，窗口绑定的存档表有与表联动代码，取消里面代码就不弹窗了，谢谢