主题：[求助]筛选

Dim clmc As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim Filter As String
If clmc.Value IsNot Nothing Then
    Filter = "日期 like '*" & clmc.Value & "*'"
End If

Dim t As Table = Tables("股piao数据明细_table3")
t.Filter = Filter
Dim s As String
Dim id As String
Dim str As New List (Of String)

For i As Integer = 0 To t.Rows.Count - 1
    s = ""
    For j As Integer = 0 To t.Cols.Count - 1
        s + = t.Text(i,j)
    Next
    If str.Contains(s) = False Then
        str.Add(s)
        id + = t.Rows(i)("_Identify") & ","
    End If
Next
If id > "" Then
    t.Filter = "_Identify Not In (" & id.Trim(",") & ")"
End If