For Each dr As DataRow In DataTables("存货档案").DataRows Dim s As String = DR("备注") Dim tr1 As DataRow tr1 = DataTables("开piao数据").Find("[规格型号] = '" & DR("规格型号") & "' And [商品名称] = '" & DR("名称") & "'")
If s.Contains(tr1("厂商品牌")) = False Then dr("备注") = s & "/" & tr1("厂商品牌") End If Next