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
|