避免重复内容的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 避免重复内容的问题

共有2398人关注过本帖树形打印复制链接主题：避免重复内容的问题

黑苹果

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

加好友

发短信

等级：婴狐帖子：50 积分：469 威望：0 精华：0 注册：2015/11/13 12:35:00

避免重复内容的问题 发帖心情

Post By：2015/12/14 20:19:00 [显示全部帖子]

某列避免重复输入重复列官方的解决方案是

在DataColChanging事件

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

这样的判断有个前提条件是该表数据必须全部加载

如果有部份数据没有加载

则代码必须改成SQLFIND

而总感觉频繁的调用SQLFIND 总会影响效率

为啥不就不能使用SQL数据库的非空唯一列特性来控制列的唯一性呢

黑苹果

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

加好友

发短信

等级：婴狐帖子：50 积分：469 威望：0 精华：0 注册：2015/11/13 12:35:00

Post By：2015/12/14 20:35:00 [显示全部帖子]

用主键唯一约束的确是不好，因为主键唯一约束必须先有值才能加下一行，所以一次只能插入多行，所有狐表默认用自动增量列作主键了

但真正使用过程中，人们可能更多地需要非空列唯一，空值可以有多个的

SQL数据库已考虑这个了，但是狐表就没有考虑这个需求

我用通用的方法将SQL的列设置成 UNIQUE 非常唯一列

ALTER TABLE 工装刀检编号表 add UNIQUE (编号)

但遗憾的是，一到狐表中，狐表就将其干成 PRIMARY KEY 约束了

实际测试如果使用SQL的功能更新数万条数据,可以零点几秒完成,那个效率是FT方式的好多倍

同理在全局非空唯一列的问题上,如果能使用SQL UNIQUE 的控制方式肯定也效率高很多.

你可以先find，找不到，再sqlFind，一行数据，查是没什么问题的。如果小型应用 ,数据库中的数据都没有多少条,一次增加的数据都没多少条,则时间是无所味的

但是一次增加的数据有好多条呢

黑苹果

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

加好友

发短信

等级：婴狐帖子：50 积分：469 威望：0 精华：0 注册：2015/11/13 12:35:00

Post By：2015/12/14 20:53:00 [显示全部帖子]

If e.DataCol.Name = "第七列" Then

Dim drs As DataRow

drs = e.DataTable.SQLFind("第七列 = '" & e.NewValue & "'")

Dim dr As DataRow

dr = e.DataTable.Find("第七列 = '" & e.NewValue & "'")

If dr IsNot Nothing Or drs IsNot Nothing Then

MessageBox.Show("此内容已经存在!")

e.Cancel = True

End If

代码如果改成这样的话

先判断一下已加载的数据包括还没有保存的数据

再判断一下没有加载的数据中有没有

看似没问题,但实际上会带来严重的后果,客户会无所适从

比如原来第二行有数据,789是保存了的. 在后台还是记载的789

我现在删除了第二行的789或第二行的修改成其它数据456,再在其它的行输入了789.则这时系统不让输入789了,用户就有些发疯了

解决问题的方法有:

一,全部加载数据,用FIND 一个方法 .但数据多了全部加载是不现实的

二,使用SQL本身的UNIQUE 非空约束,数据随便你怎么改以最后结果为准. 与方法一本质上是相同的.但可惜的是狐表不支持.

目前的方法 :

数据又不能全部加载,只能部份加载

又要保证数据列内容不重复

客户的操作习惯又是不可控的

想要做个不重复的控制,还真有点难

难道必须控制重复的单元格一发生值变体就保存一下本行? 然后全部编辑完了再来个全表保存?

还真是费脑子的事情.

黑苹果

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

加好友

发短信

等级：婴狐帖子：50 积分：469 威望：0 精华：0 注册：2015/11/13 12:35:00

Post By：2015/12/14 20:57:00 [显示全部帖子]

你可以插入多行啊，只要赋值为一个随机的字符，比如可以是唯一的uuid，你想添加多少行都没问题。

这个还不是问题的关键,单列非空不重复. 这个可以转换成主键解决

还有多列组合不重复. 这个也要转换成主键解决.? 一个表中只能有一个主键了

黑苹果

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

加好友

发短信

等级：婴狐帖子：50 积分：469 威望：0 精华：0 注册：2015/11/13 12:35:00

Post By：2015/12/14 21:52:00 [显示全部帖子]

你这代码测试结果如下

第一行，第七列有内容 456

我现在移除第一行（相当于第一行数据未加载)

然后再在其它行第七列输入456

再次打开项目,第七列就有两个 456了

唯一性不重复就没有判断了.

[此贴子已经被作者于2015/12/14 21:52:20编辑过]

黑苹果

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

加好友

发短信

等级：婴狐帖子：50 积分：469 威望：0 精华：0 注册：2015/11/13 12:35:00

Post By：2015/12/14 21:59:00 [显示全部帖子]

你这代码有问题,

完全没有你说的问题find，sqlfind就可以控制

If e.DataCol.Name = "第七列" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("第七列 = '" & e.NewValue & "' and [_Identify] <> " & e.DataRow("_Identify"))
    If dr IsNot Nothing Then
        MessageBox.Show("此内容已经存在!")
        e.Cancel = True
    Else

        dr = e.DataTable.SQLFind("第七列 = '" & e.NewValue & "' and [_Identify] <> " & e.DataRow("_Identify"))
        If dr IsNot Nothing Then
            msgbox("后台数据库此数据已经存在")
            e.cancel = True
        End If
    End If
End If

必须这样才能正常执行,难怪我想不通逻辑

但这样后,我所说的问题就存在

删除某行的内容再在其它行输入就是不行