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(