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

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

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