Foxtable(狐表)用户栏目专家坐堂 → 禁止重复


  共有1871人关注过本帖树形打印复制链接

主题:禁止重复

帅哥哟,离线,有人找我吗?
武汉老杨
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:56 积分:605 威望:0 精华:0 注册:2016/7/21 12:54:00
禁止重复  发帖心情 Post By:2016/8/2 18:34: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

这样,还是添加了一行记录,只是 “单据编号”  是 空值,其他的列还是添加进去了。

要求:如果 列重复了,不添加这一行记录,代码怎么写,写在哪里?

 回到顶部