ValidateEdit事件
If e.Col.name = "第一列" Then If e.Text > "" AndAlso DataTables("表B").find("第一列 = '" & e.text & "'") Is Nothing Then msgbox("此人不存在") e.cancel = True End IfEnd If