1、
CurrentTable.DataTable.DeleteFor(CurrentTable.Filter)
2、
For i As Integer = CurrentTable.Rows.count-1 To 0 Step-1 Dim r As Row = CurrentTable.Rows(i) If r.DataRow.RowState = DataRowState.Added OrElse r.DataRow.RowState = DataRowState.Modified Then r.delete End IfNext