以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多条件入库！ 遇到代码执行问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29982)
--  作者：xyw04
--  发布时间：2013/3/18 15:43:00
--  多条件入库！ 遇到代码执行问题？

        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、当 商品代码 存在， 颜色也存在  叠加

 

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

--  作者：xyw04
--  发布时间：2013/3/18 15:44:00
--  
怎么才能，让 代码， 审核条件！
--  作者：xyw04
--  发布时间：2013/3/18 15:46:00
--  
        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
--  作者：狐狸爸爸
--  发布时间：2013/3/18 16:49:00
--  
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