功能是想在文本框（“cname”）输入完要筛选的内容，按回车，鞋子库存表就得筛选出相关内容，并清空文本框，焦点回到文本框，可以继续输入内容再筛选..

试过在文本框的离开事件输入e.cancel=true,这样是可以焦点一直在文本框，但是鼠标点到其它位置，焦点依然回到文本框位置，干不了别的事。所以在KEYDOWN事件里整了以下代码，回车后筛选功能是实现了，清空文本框和焦点回文本框依然能实现，各位帮忙看看代码

If e.keycode = keys.enter AndAlso e.sender.text = e.sender.Value Then
    Dim Filter As String
    With e.Form.Controls("cname")
        If .Value IsNot Nothing Then
            Filter = "[型号] like \'%" & .Value &"%\'"
        End If
    End With
    If Filter > "" Then
        Tables("鞋子库存").Filter = Filter
    End If
e.Form.controls("cname").text = Nothing     ‘清空文本框

e.form.Controls("cname").Select()               ‘焦点回到文本框
End If