主题：[求助]明白人帮指导一下

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

        Dim dr2 As DataRow = dt2.find("货号 = '"& t &"'")
        Dim dr3 As DataRow = dt3.find("货号 = '"& t &"'")
        If dr2 Is Nothing Then
            dr2 = dt2.AddNew
            dr2("货号") = t
            dr2("数量") = s("数量")
            dr2("单价") = s("单价")
        Else
            dr2("数量") = dr2("数量") + s("数量")
        End If
        If dr3 Is Nothing Then
            dr3 = dt3.AddNew
            dr3("货号") = t
            dr3("数量") = s("数量")
            dr3("单价") = s("单价")
        Else
            dr3("数量") = dr3("数量") + s("数量")
        End If

    MessageBox.Show("商品入库成功!")
    Tables("入库").AddNew()
End If