主题：求模糊筛选代码

Dim Filter As String = ""
Dim Val As String = "西"
For each c As col In CurrentTable.Cols
    If c.IsString Then
       If Filter > "" Then
            Filter = Filter & " Or "
        End If
        Filter = Filter &  c.Name & " Like '*" & Val & "*'"
   End If
Next
CurrentTable.Filter = Filter