For i as integer = DataTables("车辆表").DataRows.Count-1 To 0 Step -1 Dim dr As DataRow = DataTables("车辆表").DataRows(i) Dim dr2 As DataRow = DataTables("车辆表").Find("车牌号码='" & dr("车牌号码") & "' and 车牌颜色='" & dr("车牌颜色") & "' and _Identify <> " & dr("_Identify")) If dr2 IsNot Nothing Then dr2.Delete End If Next