DataRowDeleting事件
dr = DataTables("库存").Find("[批号] = '" & e.DataRow("批号") & "'")
If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
dr("是否出库") = False
End If