Dim dx As DataRow = e.DataRow

Dim px As DataRow = DataTables("出库表").AddNew()

If e.DataCol.name = "仓库_出库确认" Then

    If dx("仓库_出库确认") = True Then

        px("出库日期") = dx("仓库_原材料领料完成日")

        px("品名") = dx("零件名称")

        px("规格") = dx("规格")

        px("材质") = dx("材质")

        px("出库数量") = dx("生产数量")

        px("物料去向") = dx("项目编号")

    Else

        Dim ds As DataRow

        ds = DataTables("出库表").find("出库日期 = \'" & dx("仓库_原材料领料完成日") & "\' and 品名 = \'" & dx("零件名称") & "\' and 规格 = \'" & dx("规格") & "\' and 材质 = \'" & dx("材质") & "\' and 出库数量 = \'" & dx("生产数量") & "\' And 物料去向 = \'" & dx("项目编号") & "\'")

        If ds IsNot Nothing Then

            ds.Delete()

        End If

    End If

End If