Build List (String) Array from Profile Multivalue Field

Mindwatering Incorporated

Author: Tripp W Black

Created: 11/23/2005 at 11:54 AM

 

Category:
Notes Developer Tips
LotusScript

Function PopulateLists(pDoc As NotesDocument) As Integer
' returns 1 for success
' populates arrays from profile doc used for filtering
' arrays are globally dimmed
Dim counter As Integer ' counter for building lists/arrays
Dim pItem As NotesItem ' list item in pDoc

On Error Goto FErrorHandler

' build list
Set pItem=pDoc.GetFirstItem("P_LstFld")
If (pItem Is Nothing) Then
' quit
Print "(PopulateLists) Error: Unable to build File Extension list. Cannot Continue."
PopulateLists=0
Exit Function
End If
counter=0
Forall listvalue In pItem.Values
Redim Preserve fileextlist(counter) As String
fileextlist(counter) = Cstr(listvalue)
counter=counter + 1
End Forall


' return success
PopulateLists=1
Exit Function

FErrorHandler:
Dim errormsg As String ' error msg to return to user
errormsg = "Marker: " & whereami & "(PopulateLists) Info: " & Str(Err) & ": " & Error$ & " on line: " & Cstr(Erl)
Print errormsg
PopulateLists=0
End Function

previous page