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

大概这样:
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 = "第一列"