此主题相关图片如下：11.png
'验证重复电话号码
If e.DataCol.Name = "联系电话" Then
If e.NewValue IsNot Nothing Then '且电话号码不为空值时
Dim drl As Integer
drl = Tables("询盘表").Find("" & e.NewValue & "", 0, "联系电话", False, False, False)
If drl > -1 Then '假如找到联系电话
Dim Result9 As DialogResult
Result9 = MessageBox.Show("电话号码已存在!是否查找此号码?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result9 = DialogResult.Yes Then
Tables("询盘表").Position = drl
e.DataRow("联系电话") = Nothing
End If
End If
End If
End If
代入如上，想设置在录入电话号码时，如果有重复的，提示不能录入，可是每次我输入任何非空值时，都会出现弹窗，貌似跳过了 If drl > -1 Then 这段条件限制，直接执行下面的代码了！
此主题相关图片如下：222.png
我任意输入222也会出现弹窗
加好友 
发短信
Post By：2018/8/24 15:22:00 [显示全部帖子]
