需要在validateEdit事件判断。
比如
If e.Col.Name = "BjLx" Then
If DataTables("GjDe").Find("SbBj = '" & e.Text & "'") is Nothing Then
msgbox("错误")
e.Cancel = True
End If