【文件属性】：
文件名称：Notes中几个处理多值域的通用函数
文件大小：25KB
文件格式：DOC
更新时间：2015-04-20 03:07:49
域 getItemIndex
getItemIndex(域名，域值，文档)
Public Function getItemIndex(ByVal fieldName As String, ByVal itemVal As Object,
ByVal doctt As NotesDocument) As Integer
Dim i As Integer
Dim j As Integer
Dim item As NotesItem
item = doctt.GetFirstItem(fieldName)
j = Ubound(item.Values)
For i = 0 To j
If itemVal = item.Values(i) Then
getItemIndex = i
Exit Function
End If
Next
getItemIndex = -1
End Function