如何缩短查询时间?
我们公司notes里有个领取物品的功能:
先填领物品的单子,这时候需要填单子上的编号,在编号域的EXITING事件中,进行编号查询,以避免编号重复,软件公司给我们写的是这样的:
Sub Exiting(Source As Field)
Dim session As New notessession
Dim workspace As New notesuiworkspace
Dim db As notesdatabase
Dim dc As notesdocumentcollection
Dim doc As notesdocument
Dim uidoc As notesuidocument
Dim workcard As Variant
Dim workcard1 As Variant
Set db=session.currentdatabase
Set dc=db.alldocuments
Set uidoc=workspace.currentdocument
workcard=uidoc.fieldgettext("lingliao_code")
If uidoc.isnewdoc Then
If workcard<>"" Then
For i=1 To dc.count
Set doc=dc.getnthdocument(i)
workcard1=doc.getitemvalue("lingliao_code")
If workcard=workcard1(0) Then
Messagebox "此编号已存在,请确认后重新输入!"
Call uidoc.fieldclear("lingliao_code")
Call uidoc.gotofield("lingliao_code")
Exit For
End If
Next
End If
End If
End Sub
这样写虽然可以,但随着数据库里记录的增多,目前速度已经慢的比较夸张了,我填完编号,可以等5分钟以上,请问,有什么更好的方法可以缩短查询时间么?谢谢!