横向的方案完全走不通，换了一个思路 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 横向的方案完全走不通，换了一个思路

共有2107人关注过本帖树形打印复制链接主题：横向的方案完全走不通，换了一个思路

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/8/9 15:17:00 [显示全部帖子]

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

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

下一主题 >> << 上一主题

主题：横向的方案完全走不通，换了一个思路