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

 

1.查找出查找内容在多值域中的索引值
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

 

2.删除多值域中的数据
delItemValues(多值域名,更改的索引值,所在文档对象)

Public Sub delItemValues(ByVal fieldName As String, ByVal index As Integer, ByVal doctt As NotesDocument)

    Dim i As Integer

    Dim temp() As Object

    Dim item As NotesItem

    item = doctt.GetFirstItem(fieldName)

    Dim j As Integer



    j = Ubound(item.values)

    '-----------

    If j = 0 Then

        '当J为0时，即仅有一个值，给予空值即可

        Call doctt.ReplaceItemValue(fieldName, "")

        Exit Sub

    End If

    '------------

    If Trim(item.Values(0)) = "" Then

        index = j

    End If

    If index > j Then

        '仍然做为最后一个数据加入  

        j = j + 1  '索引位仅增加1

        index = j  '重定义索引位，防止超出范围

    End If



 Redim temp(j-1) As Variant '重定义数组 

    For i = 0 To index - 1

        temp(i) = item.values(i)

    Next



    For i = index To j - 1

        temp(i) = item.values(i + 1)

    Next



    Call doctt.ReplaceItemValue(fieldName, temp)

    'End If

    'End If

End Sub

 

3.更改多值域中的数据
editItemValues(多值域名,更改的索引值,更改的内容,所在文档对象)

Public Sub editItemValues(ByVal fieldName As String, ByVal index As Integer, ByVal itemVal As Object, 
                          ByVal doctt As NotesDocument)

    Dim i As Integer

    Dim temp() As Object

    Dim item As NotesItem

    item = doctt.GetFirstItem(fieldName)

    Dim j As Integer



    j = Ubound(item.values)

    If Trim(item.Values(0)) = "" Then

        index = j

    End If

    If index > j Then

        '仍然做为最后一个数据加入  

        j = j + 1  '索引位仅增加1

        index = j  '重定义索引位，防止超出范围

    End If



 Redim temp(j) As Variant '重定义数组



    For i = 0 To j

        If i = index Then

            temp(i) = itemVal

        Else

            temp(i) = item.values(i)

        End If

    Next

    Call doctt.ReplaceItemValue(fieldName, temp)

    'End If

    'End If

End Sub