主题：请问：下列代码具有删除重复行功能，但是，当行为一行、或两行时，全部删除，行数必须为三行以上？

请问：下列代码具有删除重复行功能，但是，当行为一行、或两行（不重复）时，全部删除，行数必须为三行以上才能不被全部删除？如何保证只有一行或两行时不被删除，两行重复留一行，两行不重复不被删除？

Dim t As Table =  Tables("导入订单")
t.Select(t.Rowsel,t.cols("重复删除过渡列").Index)
syscmd.Filter.ShowRedundantValues
For i As Integer = t.Rows.Count -1 To 0 Step -1
    t.rows(i).Delete
Next
t.filter = ""

显示冗余值，只有行数大于等于3的时候，才会执行。

比较合理的代码，删除第一列重复的行：

Dim drs As List(of DataRow) =  DataTables("表A").Select("", "第一列")
For i As Integer = drs.count - 1 To 1 Step - 1
    If drs(i)("第一列") = drs(i-1)("第一列") Then
        drs(i).delete
    End If
Next

楼主：如果只有两行的话，一眼就看到了，还有必要考虑重复筛选吗？软件作者就是考虑这一点的。干嘛要把简单的问题复杂化呢？