以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  列重复性判定问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84653)
--  作者：benwong2013
--  发布时间：2016/5/6 15:32:00
--  列重复性判定问题
若要求修改为：报告编号不等于“abc"或不为空时，将进行重复性的检查，请问应该如何修改？

If e.DataCol.Name = "报告编号" Then
    Dim dr As DataRow 
    dr = e.DataTable.Find("报告编号 = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
       e.Cancel = True
        MessageBox.Show("此报告编号已经存在!")
    End If
End If
--  作者：大红袍
--  发布时间：2016/5/6 15:44:00
--  
If e.DataCol.Name = "报告编号" AndAlso e.NewValue > "" AndAlso e.NewValue <> "abc" Then
    Dim dr As DataRow 
    dr = e.DataTable.Find("报告编号 = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
       e.Cancel = True
        MessageBox.Show("此报告编号已经存在!")
    End If
End If