条件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有2216人关注过本帖树形打印复制链接主题：条件

yetle

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

加好友

发短信

等级：四尾狐帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00

条件

Post By：2018/8/16 15:51:00 [只看该作者]

For Each ar As Row In Tables("大货用料表").rows

For Each br As Row In Tables("款式颜色").rows

Dim nr = Tables("配色表").addnew()

nr("款号") = ar("款号")

nr("物料ID") = ar("物料基本信息_物料ID")

nr("物料名称") = ar("物料基本信息_物料名称")

nr("颜色信息") = br("颜色")

要加条件：如果配色表已经生成过了交叉行信息（配色表已经存在此物料，同时存在此物料包括的款式颜色表里的所有颜色），则不再重新生成，条件如何写？

有点甜

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

加好友

发短信

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

Post By：2018/8/16 16:22:00 [只看该作者]

For Each ar As Row In Tables("大货用料表").rows
    For Each br As Row In Tables("款式颜色").rows
        Dim nr = DataTables("配色表").find("第一列='" & ar("第一列") & "' and 第二列='" & ar("第二列") & "'")
        If nr Is Nothing Then nr = DataTables("配色表").addnew
        nr("款号") = ar("款号")
        nr("物料ID") = ar("物料基本信息_物料ID")
        nr("物料名称") = ar("物料基本信息_物料名称")
        nr("颜色信息") = br("颜色")
    Next
Next