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

显示冗余值，只有行数大于等于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