以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请问老师查找重复值的代码怎么写 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147346) |
-- 作者:初心不改再说未来 -- 发布时间:2020/3/14 16:30:00 -- 请问老师查找重复值的代码怎么写 我有个列叫做楼盘户型登记序号,通过一个窗体向表中输入序号值。 现在整理过程中发现有大量重复序号,想在窗体录入前预先检测表中的序号有没有重复的,有的话给个提示,没有的话再继续录,不然录完才提示有重复值太难受了。 现在知道怎么避免录入重复值,但是新的数据过来检测有没有重复的这个在窗体里怎么实现呢? 谢谢老师
|
-- 作者:有点蓝 -- 发布时间:2020/3/14 16:54:00 -- 赋值前先逐个序号查询一下是否已经有数据,datatable.find、comput等功能都可以 |
-- 作者:初心不改再说未来 -- 发布时间: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 -- 发布时间:2020/3/14 17:12:00 -- http://www.foxtable.com/webhelp/topics/0624.htm |
-- 作者:有点蓝 -- 发布时间:2020/3/14 17:19:00 -- 这种fnd:http://www.foxtable.com/webhelp/topics/0396.htm dr = DataTables("产品").Find("产品编号 = \'" & e.form.controls("textbox1").text & "\'")
|