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

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

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("颜色")

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

yetle

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

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

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

有两个颜色，

此主题相关图片如下：111.png

只生成了一个颜色行

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

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

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

Dim nr = DataTables("配色表").find("物料ID='" & ar("物料基本信息_物料ID") & "'")

If nr Is Nothing Then nr = DataTables("配色表").addnew

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

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

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

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

主题：条件