以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]拒绝重复  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77489)
--  作者：江南小城
--  发布时间：2015/11/19 10:44:00
--  [求助]拒绝重复
老师好，我要在同一个时间段里名称列不出现重复的名称。谢谢。
--  作者：Hyphen
--  发布时间：2015/11/19 10:52:00
--  

禁止输入重复值
http://www.foxtable.com/help/topics/2481.htm


 
--  作者：江南小城
--  发布时间：2015/11/19 11:07:00
--  
比如在时间列里2015年11月19号这一天在名称列里不出现重复的名称。
--  作者：大红袍
--  发布时间：2015/11/19 11:26:00
--  

datacolchanging事件

 

If e.DataCol.Name = "名称" Then
     Dim dr  As  DataRow
     dr = e.DataTable.Find("名称 = \'" & e.NewValue &  "\' and 时间 = #" & e.DataRow("时间") & "#")
     If dr IsNot Nothing Then
         MessageBox.Show("此时间已存在相同名称!")
         e.Cancel =  True
     End  If
 End  If
--  作者：江南小城
--  发布时间：2015/11/19 11:54:00
--  
老师，对关联表怎样设置。
--  作者：大红袍
--  发布时间：2015/11/19 12:38:00
--  
以下是引用江南小城在2015/11/19 11:54:00的发言：
老师，对关联表怎样设置。

 

一样这样写，限制条件加上。

 

dr = e.DataTable.Find("名称 = \'" & e.NewValue &  "\' and 时间 = #" & e.DataRow("时间") & "# and 关联列 = \'" & e.DataRow("关联列") & "\'")
--  作者：江南小城
--  发布时间：2015/11/19 13:37:00
--  
老师，上面代码在导入数据时没有重复也为提示有重复。
--  作者：大红袍
--  发布时间：2015/11/19 14:00:00
--  

导入的时候，判断重复这样写代码

 

http://www.foxtable.com/help/topics/2334.htm

 

Dim dr As DataRow = DataTables("订单").Find("编号 = \'" & bh & "\'")

--  作者：江南小城
--  发布时间：2015/11/19 15:11:00
--  
以下是引用大红袍在2015/11/19 14:00:00的发言：

导入的时候，判断重复这样写代码

 

http://www.foxtable.com/help/topics/2334.htm

 

Dim dr As DataRow = DataTables("订单").Find("编号 = \'" & bh & "\'")


老师，复制和导入上面的代码都可以吗？
--  作者：大红袍
--  发布时间：2015/11/19 15:23:00
--  

列名、表名、对应的东西，全部要变。

 

如果不会写代码，就认认真真学习，或者上传具体例子别人把你写。