主题：住院号重复

我的住院号是不能重复的，写了如下代码，但这个代码“开发者”和“管理员”用户下能提示，其他普通用户输入住院号时不提示，因住院号重而复导致系统混乱

If e.DataCol.Name = "病人信息_住院号" Then

    Dim dr As DataRow 

    dr = e.DataTable.Find("病人信息_住院号= '" & e.NewValue & "'")

    If dr IsNot Nothing Then

        MessageBox.Show("此住院号已经存在!请重写住院号,Bul nomir burin bar , baskha nomir jazingiz!")

        e.Cancel = True

    End If

End If

如何处理？谢谢！

If e.DataCol.Name = "病人信息_住院号" Then

    Dim dr As DataRow 

    dr = e.DataTable.SqlFind("病人信息_住院号= '" & e.NewValue & "'")

    If dr IsNot Nothing Then

        MessageBox.Show("此住院号已经存在!请重写住院号,Bul nomir burin bar , baskha nomir jazingiz!")

        e.Cancel = True

    Else

        e.DataRow.Save

    End If

End If