窗口中的查询的按钮代码如何写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在窗口中设计一组合框，一个查询按钮，在组合框中输入，姓名的任意一个字符，或联系电话实现查询功能，请问按钮代码要如何写？

下面是我写的一段代码，但只能输入完整姓名才能查询，且不能输入联系电话查询，请专家修改：

Dim Filter As String

With e.Form.Controls("cmbCustomer")

If .Value IsNot Nothing Then

If filter >"" Then

filter = filter & " and "

End If

filter = filter & "姓名 = '" & .value & " '"

End If

End With

If filter > "" Then

Tables("糖尿病人员列表").filter = filter

End If

主题：窗口中的查询的按钮代码如何写