以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  跨表复制数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176728)
--  作者：liuandwang
--  发布时间：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


求按钮代码，非常感谢！！！
--  作者：有点蓝
--  发布时间：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
--  发布时间：2022/4/25 10:49:00
--  
还有一个问题：如何排除0值，A表中出现0值的，不复制到B表中
--  作者：有点蓝
--  发布时间：2022/4/25 11:13:00
--  
if c.name like "尺寸*" and r(c.name) <> 0 then