以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  横向的方案完全走不通,换了一个思路  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=123179)

--  作者:yetle
--  发布时间:2018/8/9 15:03:00
--  横向的方案完全走不通,换了一个思路
请教:配色表中物料根据款式颜色表中存在的颜色生成对应的行,配量表中物料根据款式尺码表中存在的尺寸生成对应的行可以怎么写?


[此贴子已经被作者于2018/8/11 10:47:22编辑过]

--  作者:有点甜
--  发布时间:2018/8/9 15:17:00
--  

1、看看 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=122616&skin=0

 

2、如果写代码,就循环表A所有行,在循环里面再循环表B所有行,addnew即可。


--  作者:yetle
--  发布时间:2018/8/9 16:36:00
--  
方法二循环具体怎么写?
[此贴子已经被作者于2018/8/9 17:09:07编辑过]

--  作者:有点甜
--  发布时间:2018/8/9 17:34:00
--  
以下是引用yetle在2018/8/9 16:36:00的发言:
方法二循环具体怎么写?
[此贴子已经被作者于2018/8/9 17:09:07编辑过]

 

For Each ar As Row In Tables("表A").rows   
    For Each br As Row In Tables("表B").rows
       
    Next   
Next


--  作者:yetle
--  发布时间:2018/8/9 17:55:00
--  
还有两个疑问:
1、款式颜色表和配料表里还存有其他款的资料,所以需加条件,新增的只是当前对应款号,这又怎么写?
2、新增行就是在代码后加Tables("款式颜色").addnew()?
For Each ar As Row In Tables("表A").rows    
    For Each br As Row In Tables("表B").rows
        
    Next    
Next
Tables("款式颜色").addnew()

--  作者:有点甜
--  发布时间:2018/8/9 18:30:00
--  

For Each ar As Row In Tables("表A").rows
    For Each br As Row In Tables("表B").rows
        Dim nr = Tables("款式颜色").addnew()
        nr("第一列") = ar("aaa")
        nr("第二列") = br("bbb")
    Next
Next