请问老师查找重复值的代码怎么写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问老师查找重复值的代码怎么写

共有2484人关注过本帖树形打印复制链接主题：请问老师查找重复值的代码怎么写

初心不改再说未来

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

加好友

发短信

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

请问老师查找重复值的代码怎么写 发帖心情

Post By：2020/3/14 16:30:00 [只看该作者]

我有个列叫做楼盘户型登记序号，通过一个窗体向表中输入序号值。

现在整理过程中发现有大量重复序号，想在窗体录入前预先检测表中的序号有没有重复的，有的话给个提示，没有的话再继续录，不然录完才提示有重复值太难受了。

现在知道怎么避免录入重复值，但是新的数据过来检测有没有重复的这个在窗体里怎么实现呢？

谢谢老师

有点蓝

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

加好友

发短信

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

Post By：2020/3/14 16:54:00 [只看该作者]

赋值前先逐个序号查询一下是否已经有数据，datatable.find、comput等功能都可以

初心不改再说未来

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

加好友

发短信

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

Post By：2020/3/14 17:05:00 [只看该作者]

With CurrentTable
    Dim r As Integer
    r = .Find("abc", 0, 0, False, False, True)
    If r > - 1 Then '如果找到符合条件的行
        .Position = r '则选择该行
    End If
End With

应该是用这个方法吧？

这个里面的abc 怎么能换成我在窗口的textbox里输入的值呢？

y2287958

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

加好友

发短信

等级：狐神帖子：4640 积分：33850 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2020/3/14 17:12:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0624.htm

有点蓝

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

加好友

发短信

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

Post By：2020/3/14 17:19:00 [只看该作者]

这种fnd：http://www.foxtable.com/webhelp/topics/0396.htm

dr = DataTables("产品").Find("产品编号 = '" & e.form.controls("textbox1").text & "'")

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

主题：请问老师查找重复值的代码怎么写