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

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

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

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

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

怎么才能，让代码，审核条件！

        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("颜色分类")&"'")
            If dr2 Is Nothing
                dr2 = DataTables("库存明细表").AddNew()
                dr2("商品代码") = dr1("商品代码")
                dr2("品牌名称") = dr1("品牌名称")
                dr2("颜色分类") = dr1("颜色分类")
                dr2("库存数量") = dr1("入库数量")
                dr2("合计金额") = dr1("合计金额")
            End If
            If dr3 Is Nothing
                dr2 = DataTables("库存明细表").AddNew()
                dr2("商品代码") = dr1("商品代码")
                dr2("品牌名称") = dr1("品牌名称")
                dr2("颜色分类") = dr1("颜色分类")
                dr2("库存数量") = dr1("入库数量")
                dr2("合计金额") = dr1("合计金额")
            End If
            dr2("库存数量") = dr2("库存数量") + dr1("入库数量")
            dr2("合计金额") = dr2("合计金额")+dr1("合计金额")
        Next

For Each dr1 As DataRow In DataTables("库存临时表").Select("商品代码 Is Not Null")
    Dim dr2 As DataRow = DataTables("库存明细表").Find("商品代码 = '" & dr1("商品代码") & "'And 颜色分类 = '" & dr1("颜色分类")&"'")
    If dr2 Is Nothing Then
        dr2 = DataTables("库存明细表").AddNew()
        dr2("商品代码") = dr1("商品代码")
        dr2("品牌名称") = dr1("品牌名称")
        dr2("颜色分类") = dr1("颜色分类")
        dr2("库存数量") = dr1("入库数量")
        dr2("合计金额") = dr1("合计金额")
    End If
    dr2("库存数量") = dr2("库存数量") + dr1("入库数量")
    dr2("合计金额") = dr2("合计金额")+dr1("合计金额")
Next

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

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