＋设为首页 ＋添加到收藏夹
即当该值存在时，有重复输入时系统不接受并提示或报警， 如员工编号、身份证号码之类
自己写个算法，算了，我就写一下吧，很多时间没有来了。b/s,表单为PersonInfo，
Dim Session As New NotesSession
Dim DB As NotesDatabase
Dim Doc As NotesDocument
Dim DataTime As New NotesDateTime("10/10/99")
Set DB = Session.CurrentDatabase
Set Doc = Session.DocumentContext
Query = |@Trim(@UpperCase(Form))="PERSONINFO" & Number="|+Doc.Number(0)+|"|
Set DC = DB.Search(Query,DateTime,0)
Flag = False
For i=1 to DC.Count
Set Doc_Tmp = Dc.GetnthDocument(i)
If Not Doc_Tmp is Nothing Then
If Doc_Tmp.UniversalID<> Doc.UniversalID Then
Flag = True
End If
End If
Next
If Flag Then
msgbox "已有相同的编号!"
End If
