窗口TextBox控件Validating事件
If Datatables("表A").Find("客户='" & e.Sender.Text & "'") IsNot Nothing Then
msgbox("不可重复")
e.Cancel = True
End If