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

首先提示的是表格currentchanged事件出错，不是按钮

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

2楼不是给改正了吗，还有什么问题？

放在里面没任何反应，

 

代码没有问题。说明"总工资表"已经没有数据了

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

1楼代码只能放到按钮里，不适合放到表事件

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

请上传实例说明