主题：[求助]单价如何判断货号录入？

菜鸟请教，入库，库存两个表，入库按键对库存执行入库操作，库存有的，在原来的货号基础上数量累计，没有的新货号在库存里新起一行，录入货号，单价和数量。入库单可一次录入多行，怎么能够让一次多录入的新货号单价都可以判读相应的货号录入呢，附件在里面，给出一段编写的代码就可以。谢谢

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

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

 代码如下

Dim s As Row=Tables("入库单").Current
If Tables("入库单").Current.IsNull("货号") Then
    MessageBox.Show("货号不能为空!")
Else
    Dim dt1,dt2 As DataTable
    dt1 = DataTables("入库单")
    dt2 = DataTables("实时库存表")

    For Each dr As DataRow In dt1.DataRows
        Dim dr2 As DataRow = dt2.find("货号 = '"& dr("货号") &"'")
        If dr2 Is Nothing Then
            dr2 = dt2.AddNew
            dr2("货号") = dr("货号")
            dr2("入库数量") = 1
            dr2("单价") = dr("单价")
        Else
            dr2("入库数量") = dr2("入库数量") + 1
        End If
    Next
    MessageBox.Show("商品入库成功!")
    Forms("入库单").Close
End If

十分感谢

解决了就好