主题：狐狸爸爸请进，求教

好像有些麻烦

Dim ColValue As New List(Of String)
For Each dr As DataRow In DataTables("表A").DataRows
    If ColValue.Contains(dr("第一列")) = False Then
        dr.BaseRow("System_Filter_Unique") = Nothing
        ColValue.Add(dr("第一列"))
    Else
        Output.Show(dr("第一列"))
        dr.BaseRow("System_Filter_Unique") = 1
    End If
Next
Tables("表A").Filter = "第一列 = '指定值' or [System_Filter_Unique] = 1"