主题：关于筛选数据的问题

Dim tbx As WinForm.TextBox=e.Form.controls("chazhaokehu")
Dim mh As WinForm.CheckBox=e.Form.Controls("mohuchazhao")
Dim str As String=tbx.value
If str =  Nothing Then
    MessageBox.Show("客户姓名不为空!", "提示")
    tbx.Select
    Return
End If

Dim filter As String = ""
If mh.Checked Then
    filter="客户姓名 like '%" & str & "%'"  '模糊查找
Else
    filter="客户姓名= '" & str & "'"  '精确查找
End If

Tables("客户资料").filter = filter