- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- A表数据转移到B表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=187064)
-- 发布时间：2023/6/19 9:29:00
-- 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
-- 发布时间：2023/6/19 9:40:00
--
首先提示的是表格currentchanged事件出错，不是按钮
其次按钮代码不合理
Dim a As Table = Tables("总工资表")
Dim b As Table = Tables("工资存档")
For r As Integer = 0 To a.Rows.Count - 1
dim nr as row = b.AddNew
For c As Integer = 0 To a.cols.Count - 1
nr(c) = a.Rows(r)(c)
Next
Next
For r As Integer = a.rows.Count - 1 To 0 Step - 1
a.rows(r).Delete
Next
Dim b As Table = Tables("工资存档")
For r As Integer = 0 To a.Rows.Count - 1
dim nr as row = b.AddNew
For c As Integer = 0 To a.cols.Count - 1
nr(c) = a.Rows(r)(c)
Next
Next
For r As Integer = a.rows.Count - 1 To 0 Step - 1
a.rows(r).Delete
Next
-- 发布时间：2023/6/19 9:46:00
--
如果通过按键把A表数据全部转移到B表，老师指导一下怎么可以实现，感谢！
-- 发布时间：2023/6/19 9:56:00
--
2楼不是给改正了吗，还有什么问题？
-- 发布时间：2023/6/19 10:00:00
--
放在里面没任何反应，
-- 发布时间：2023/6/19 10:01:00
--
代码没有问题。说明"总工资表"已经没有数据了
-- 发布时间：2023/6/19 10:06:00
--
放在表事件里面就一直弹窗这样提示
此主题相关图片如下：弹窗截图2.png
-- 发布时间：2023/6/19 10:08:00
--
1楼代码只能放到按钮里，不适合放到表事件
-- 发布时间：2023/6/19 10:42:00
--
把两个表的currentchanged事件里面代码全删了还是弹窗前面一样
-- 发布时间：2023/6/19 10:51:00
--
请上传实例说明