我的住院号是不能重复的,写了如下代码,但这个代码“开发者”和“管理员”用户下能提示,其他普通用户输入住院号时不提示,因住院号重而复导致系统混乱
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
出现“子行具有多个父行”的错误,这些都是因普通用户输入引起的
如何禁止普通用户重复输入住院号?