主题：麻烦！ 希望各位可以指点， 窗口执行表A数据，导入表B

麻烦！ 希望各位可以指点， 窗口执行表A数据，导入表B

 

表A是存放数据的，表B是临时存放的， 在表B录入后，点击确认导入 至 表A，

 

问题是， 如果表A中，没有表B的新数据，则增加行，直接导入。

 

              如果表A中，已经存在 表B的数据， 则增加数量。

 

表格A：  商品代码，  商品类型， 商品名称，型号规格， 总数

 

表格B： 商品代码， 商品类型， 商品名称，型号规格， 新增 数量

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

代码不知道， 怎么写，  给点提示也行，  给个开头也行！！

自己设计好这两个表，输入几行测试数据，然后发上来，有空的时候，我们帮你写一下代码，以后你照着做就行。

狐爸， 案例已经上传了！！ 麻烦您看下。

 

由于现在是个人使用，就不考虑， 多人使用的问题了！

For Each dr1 As DataRow In DataTables("库存临时表").Select("商品代码 Is Not Null")
    Dim dr2 As DataRow = DataTables("库存明细表").Find("商品代码 = '" & dr1("商品代码") & "'")
    If dr2 Is Nothing
        dr2 = DataTables("库存明细表").AddNew()
       dr2("商品类型") = dr1("商品类型")
       dr2("品牌型号") = dr1("品牌型号")
        dr2("型号规格") = dr1("型号规格")
        dr2("单位") = dr1("单位")
        dr2("单价") = dr1("单价")
    End If
    dr2("库存数量") = dr2("库存数量") + dr1("入库数量")
Next