Foxtable(狐表)用户栏目专家坐堂 → A表数据转移到B表


  共有3150人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/19 9:56:00 [显示全部帖子]

2楼不是给改正了吗,还有什么问题?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/19 10:01:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/19 10:08:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/19 10:51:00 [显示全部帖子]

请上传实例说明

 回到顶部