- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 禁止重复 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144784)
-- 发布时间：2019/12/30 8:24:00
-- [求助] 禁止重复
老师，请问一下，如项目，第一列 1-4笔记录都被锁定了，要在第一列后面记录中再写入重复内容时就出现 “与第一列锁定记录中的内容重复了”。谢谢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2019/12/30 8:41:00
--
我测试没有问题，按什么步骤测试？
关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。
-- 发布时间：2019/12/30 8:49:00
--
老师，可能我没有写清楚。 我想实现功能如下
要在第一列后面记录中再写入跟第一列锁定的内容重复时，就禁止写入。
-- 发布时间：2019/12/30 8:54:00
--
参考：http://www.foxtable.com/webhelp/topics/2481.htm
-- 发布时间：2019/12/30 9:02:00
--
谢谢老师，请帮忙看一下错哪儿了 ？ 谢谢。
If e.DataCol.Name = "第一列" Then
Dim dr As DataRow
dr = e.DataTable.Find("第一列 = \'" & e.NewValue & "\'")
If dr IsNot Nothing AndAlso e.Row.Locked Then
MessageBox.Show("此号已经存在!")
e.Cancel = True
End If
End If
Dim dr As DataRow
dr = e.DataTable.Find("第一列 = \'" & e.NewValue & "\'")
If dr IsNot Nothing AndAlso e.Row.Locked Then
MessageBox.Show("此号已经存在!")
e.Cancel = True
End If
End If
-- 发布时间：2019/12/30 9:05:00
--
If dr IsNot Nothing AndAlso dr.Locked Then