主题：请教录入窗口如何实现客户名称的模糊查询

你发的项目我下载不了。你参考一下。个人感觉输入客户名称时直接用例表项目，或者下拉窗口。

禁止重复代码。

Validating事件

For Each r As Row In Tables("表a").Rows
    If r("编号") = e.Form.Controls("TextBox1").Value Then
   e.Cancel = True
   Messagebox.Show("编号禁止重复,你输入的值已存在.","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Next