以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合同编号重复  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122872)
--  作者：weijun
--  发布时间：2018/8/3 13:52: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/8/3 15:23:00
--  

改成

 

If e.DataCol.Name = "合同编号" Then
    Dim dr As DataRow
    dr = e.DataTable.sqlFind("合同编号 = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("此合同编号已经存在!")
        e.Cancel = True
    End If
End If