主题：求代码

  代码这样写看看

If e.KeyCode = Keys.Enter Then
    e.Form.StopRedraw
    Dim filter As String = "1=2"
    For Each dc As Col In CurrentTable.Cols
        filter &= " or convert(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("TextBox1").Text & "%'"
    Next
    CurrentTable.Select(-1, -1)
    CurrentTable.Filter = filter
    e.Form.ResumeRedraw
End If