标题：筛选中显示重复行如何用代码写？

筛选中有显示重复值＼排除重复值＼显示冗余值，不知在命令中如何用代码表示

大概这样:
Dim T,T1,Ts As String
Dim Ls As List(Of String)
Dim Da As DataTable  = DataTables("表A")

Ls = Da.GetUniqueValues("","第一列")
For Each T In Ls
    T1 = "[第一列] = '" & T & "'"
    if Da.Compute("count(第一列)",T1)>1
        Ts = Ts & " or " & T1
    End If
Next
Tables("表A").Filter= Ts.substring(4)
Tables("表A").Sort = "第一列"

我觉得还是用菜单中的代码较方便，如在窗口中插入ComboBox控件，在控件中选择列名称，然后用下面的代码就可以筛选出重复值。


Dim ColName As String = e.Form.Controls("ComboBox1").Value
With CurrentTable
     CurrentTable.Select(.RowSel, .Cols(ColName).Index)
End With
Syscmd.Filter.HideSameValues()