以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于重复值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170010)

--  作者:cjl333333333
--  发布时间:2021/7/9 10:36:00
--  关于重复值

If e.DataRow("公司版号") > 0 Then
    Dim dr1 As DataRow
    dr1 = e.DataTable.SQLFind("公司版号 = \'" & E.DataRow("公司版号") & "\'")
   
    If dr1 IsNot Nothing Then
        MessageBox.Show("此版位号已存在,请不要重复!")
        e.Cancel = True
    End If
End If
If e.DataRow("版号") IsNot Nothing Then
    Dim dr As DataRow
    dr = e.DataTable.SQLFind("版号 = \'" & E.DataRow("版号") & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("此版辊已存在,请不要重复!")
        e.Cancel = True
    End If
End If

老师我这个代码是因为我这两个字段里有空值会重复,然后我加了条件,但还总是显示有重复值但我查了除了空值跟0其它再无重复但他还老是不能保存跳出重复的信息。是什么情况?


--  作者:有点蓝
--  发布时间:2021/7/9 10:40:00
--  
dr1 = e.DataTable.SQLFind("公司版号 = \'" & E.DataRow("公司版号") & "\' and [_identify] <>" & E.DataRow("_identify") )