主题：条件

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

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