请问老师如何在窗口中新增记录的时候判断表中某列是否重复 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问老师如何在窗口中新增记录的时候判断表中某列是否重复

共有3563人关注过本帖树形打印复制链接主题：请问老师如何在窗口中新增记录的时候判断表中某列是否重复

初心不改再说未来

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：496 积分：3905 威望：0 精华：0 注册：2017/7/19 10:58:00

请问老师如何在窗口中新增记录的时候判断表中某列是否重复 发帖心情

Post By：2021/6/19 11:36:00 [只看该作者]

如果是重复的，则弹出提示框，然后暂停往表中插入数据，如果是没有重复值，则正常往表中添加数据

我在表事件中写了这个代码：

If e.DataCol.Name = "订单地点" Then

Dim dr As DataRow

dr = e.DataTable.Find("订单地点 = '" & e.NewValue & "'")

If dr IsNot Nothing Then

MessageBox.Show("此订单地点已经存在!")

e.Cancel = True

End If

这个是在窗口中新增记录时，订单地点如果重复，可以不被录入，

但是其他的几个记录还是被插入到表中了，窗口的提交按钮代码如下：

Dim nr As Row = Tables("地址表").AddNew

nr("订单名称") = e.form.controls("textbox1").Text

nr("订单地址") = e.form.controls("textbox2").Text

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/19 11:45:00 [只看该作者]

去掉datacolchanged事件代码

提交按钮

Dim dr As DataRow

dr = DataTables("地址表").Find("订单地点 = '" & e.form.controls("textbox2").Text & "'")

If dr IsNot Nothing Then

MessageBox.Show("此订单地点已经存在!")

else

Dim nr As Row = Tables("地址表").AddNew

nr("订单名称") = e.form.controls("textbox1").Text

nr("订单地址") = e.form.controls("textbox2").Text

End If

初心不改再说未来

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：496 积分：3905 威望：0 精华：0 注册：2017/7/19 10:58:00

Post By：2021/6/19 12:00:00 [只看该作者]

多谢老师，已解决，周末快乐~~~

下一主题 >> << 上一主题

主题：请问老师如何在窗口中新增记录的时候判断表中某列是否重复