Notes中几个处理多值域的通用函数

【文件属性】：

文件名称：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