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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  条件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123514)

--  作者：yetle
--  发布时间：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("颜色")
Next
Next

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

--  作者：有点甜
--  发布时间：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

--  作者：yetle
--  发布时间：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("颜色")

Next
Next

--  作者：有点甜
--  发布时间：2018/8/16 17:11:00
--
Dim nr = DataTables("配色表").find("物料ID=\'" & ar("物料基本信息_物料ID") & "\' and 颜色信息=\'" & br("颜色") & "\'")