主题：[求助]行的删除

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