Foxtable(狐表)用户栏目专家坐堂 → 跨表复制数据


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

主题:跨表复制数据

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


加好友 发短信
等级:幼狐 帖子:94 积分:1039 威望:0 精华:0 注册:2018/4/28 23:27:00
跨表复制数据  发帖心情 Post By:2022/4/24 22:26:00 [只看该作者]

在窗口按钮事件中,将A表多列数据复制到B表一列下
A表:
        编号    尺寸1      尺寸2     尺寸3  ......
          1       23           25         28
          2       76           76         80
          3       23           40         45

最终B表效果:
        编号      尺寸
        1           23
        2           76
        3           23
        1           25
        2           76
        3           40
        1           28
        2           80
        3           45


求按钮代码,非常感谢!!!


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110798 积分:563928 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/24 22:49:00 [只看该作者]

dim nr as row
for each r as row in tables("A表").rows
for each c as col in tables("A表").cols
if c.name like "尺寸*" then
nr = tables("B表").addnew
nr("编号") = r("编号") 
nr("尺寸") = r(c.name) 
end if
next
next

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


加好友 发短信
等级:幼狐 帖子:94 积分:1039 威望:0 精华:0 注册:2018/4/28 23:27:00
  发帖心情 Post By:2022/4/25 10:49:00 [只看该作者]

还有一个问题:如何排除0值,A表中出现0值的,不复制到B表中

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110798 积分:563928 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/25 11:13:00 [只看该作者]

if c.name like "尺寸*" and r(c.name) <> 0 then

 回到顶部