主题：填充求助

If e.DataCol.Name = "出库拣货" AndAlso e.DataRow("出库拣货") = True Then
    Dim nma() As String = {"物料品号","物料名称","每箱PC数","进库_箱数","进库_数量","库位号","出库日期"} '进库明细数据来源列
    Dim nmb() As String = {"物料品号","物料名称","每箱PC数","出库_箱数","出库_数量","库位号","出库日期"} '出库明细数据接收列
    Dim dr As DataRow = DataTables("出库明细").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

通过代码拣货填充出库明细，如果打钩打错了，取消打钩，如何删除出口明细上的行？