主题：多条件入库！ 遇到代码执行问题？

        For Each dr1 As DataRow In DataTables("库存临时表").Select("商品代码 Is Not Null")
            Dim dr2 As DataRow = DataTables("库存明细表").Find("商品代码 = '" & dr1("商品代码") & "'And 颜色分类 = '" & dr1("颜色分类")&"'")
            Dim dr3 As DataRow = DataTables("库存明细表").Find("商品代码 = '" & dr1("商品代码") & "'And 颜色分类 <> '" & dr1("颜色分类")&"'")

1、当不存在 商品代码时。  直接新增加

2、当存在 商品代码时，颜色不存在， 直接新增加

3、当 商品代码 存在， 颜色也存在  叠加

问题是， 我这边 后续写了 几次，  感觉，就是不能 实现判断！！