以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]再次求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77180)

--  作者:why305
--  发布时间:2015/11/12 13:12:00
--  [求助]再次求助
列数据里,属性设置了禁止重复。
以前输入的时候,重复才提示,现在输入不重复的也提示重复。
整个列数据用高级筛选功能也没有发现有重复的数据,什么问题呢?

--  作者:大红袍
--  发布时间:2015/11/12 14:17:00
--  

不可能的事。不重复不可能有提示。

 

上传例子说明问题。


--  作者:why305
--  发布时间:2015/11/12 16:55:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:例子.table

开标时间一栏,已点进去输入的时候就提示重复,请大师指点,高级筛选的时候也没有重复啊。
密码666

--  作者:大红袍
--  发布时间:2015/11/12 17:29:00
--  

用datacolchanging事件代替检测

 

If e.DataCol.Name = "开标时间" AndAlso e.NewValue <> Nothing Then
    If e.DataTable.Find("开标时间 = #" & e.NewValue & "# and _Identify <> " & e.DataRow("_Identify")) IsNot Nothing Then
        msgbox("开标时间重复")
        e.cancel = True
       
    End If
End If

 

---------------------如果不想焦点离开,validateEdit事件也可以写

 

If e.Col.Name = "开标时间" AndAlso e.text <> Nothing Then
    If e.Table.DataTable.Find("开标时间 = #" & e.text & "# and _Identify <> " & e.Row("_Identify")) IsNot Nothing Then
        msgbox("开标时间重复")
        e.cancel = True
       
    End If
End If


--  作者:why305
--  发布时间:2015/11/12 18:07:00
--  
比系统自带的好用多了。谢谢