以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]禁止重复  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127193)
--  作者：江南小镇
--  发布时间：2018/11/8 9:20:00
--  [求助]禁止重复
 首先谢谢老师，禁止重复我在列表项目表中设置了代码。

     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
End If 

我不希望在入库管理表摘要列中输入重复字段时提示。
--  作者：有点甜
--  发布时间：2018/11/8 9:25:00
--  
代码没问题，实例发上来测试。
--  作者：江南小镇
--  发布时间：2018/11/8 9:28:00
--  
老师，我把下面代码屏蔽后有重复出现
 \'MessageBox.Show("摘要内容已经存在!")
--  作者：有点甜
--  发布时间：2018/11/8 9:36:00
--  

1、代码写到datacolchanging事件；

 

2、如果还有问题，实例发上来测试。
--  作者：江南小镇
--  发布时间：2018/11/8 16:13:00
--  
以下是引用江南小镇在2018/11/8 9:20:00的发言：
 首先谢谢老师，禁止重复我在列表项目表中设置了代码。

     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
End If 

我不希望在入库管理表摘要列中输入重复字段时提示。

老师，列表项目表多列不重复怎样写。
--  作者：有点甜
--  发布时间：2018/11/8 16:15:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2481.htm