If pf > "" Then
cmd1.commandText = "Select [库存数量] From {库存总表} Where [零件号] = '" & pf & "'"
cmd2.commandText = "Update {库存总表} Set [库存数量] = " & cmd1.ExecuteScalar() + dr("生产数量") & " Where [零件号] = '" & pf & "'"
cmd2.ExecuteNonQuery()
cmd3.CommandText = "DELETE FROM {出库表} WHERE 出库日期 = '" & e.DataRow("装配物料出库完成日") & "'and 零件号 = '" & dr("零件号") & "' and 出库数量 = '" & dr("生产数量") & "' And 物料去向 = '" & dr("项目编号") & "'"
cmd3.ExecuteNonQuery()
DataTables("出库表").RemoveFor("出库日期 = '" & e.DataRow("装配物料出库完成日") & "' and 零件号 = '" & dr("零件号") & "' and 出库数量 = '" & dr("生产数量") & "' And 物料去向 = '" & dr("项目编号") & "'")
End If