Dim filter As String = "第二列 = '张三'" Dim drs As List(Of DataRow) drs = DataTables("表A").Select(filter) Output.Show(drs.Count ) If drs.Count > 0 Then For i As Integer = drs.Count -1 To 0 Step -1 If drs(i).RowState <> DataRowState.Added Then drs.RemoveAt(i) End If Next End If