怎样实现列中的值不重复 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样实现列中的值不重复

共有4178人关注过本帖树形打印复制链接主题：怎样实现列中的值不重复

dm168

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

等级：幼狐帖子：111 积分：1083 威望：0 精华：0 注册：2012/9/14 17:23:00

怎样实现列中的值不重复 发帖心情

Post By：2015/4/5 21:17:00 [显示全部帖子]

列如表A中的code列已经有1在文本框中填入1的时候会弹出提示框说编码不能重复，如果表A code列没有1就不会提示，并保存数据。

下面这段代码总是同时保存和提示，要怎样改才对？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

'叛断Code列是否重复

Dim val As String = e.Form.Controls("TextBox1").value

For Each dr As DataRow In DataTables("表A").DataRows

If dr IsNot Nothing Then

If val IsNot Nothing Then

If dr("Code") = val Then

messagebox.show("编码必需是唯一的不能重复")

Else

Tables("表A").save

End If

[此贴子已经被作者于2015/4/5 21:18:47编辑过]

dm168

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

等级：幼狐帖子：111 积分：1083 威望：0 精华：0 注册：2012/9/14 17:23:00

Post By：2015/4/6 11:54:00 [显示全部帖子]

没人帮我吗?

dm168

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

等级：幼狐帖子：111 积分：1083 威望：0 精华：0 注册：2012/9/14 17:23:00

Post By：2015/4/6 23:30:00 [显示全部帖子]

谢谢

主题：怎样实现列中的值不重复