I was working on a small development issue today where the client wanted to be able to select a value from a multi-value list and then remove that entry and entries in the same position from a number of other multi-value lists.

The existing code for this function was written in Formula language and it just didn’t work properly so I set about rewriting it in LotusScript. A much neater solution…

First a small shared function…

Function removeElement(varFromList As Variant,varTarget As Integer) As Variant
Redim arrReturn(0) As Variant
Dim intCount As Integer

intCount=0
For element = Lbound(varFromList) To Ubound(varFromList)
If element <> varTarget Then
Redim Preserve arrReturn(intCount) As Variant
arrReturn(intCount)=varFromList(element)
intCount=intCount+1
End If
Next element
removeElement=arrReturn
End Function

Then to call the function it’s just a simple bit of code

Selection = w.Prompt(4,"Select Part To Remove","Please select the part number _
 that you wish to remove from the list","",doc.part)
	If Selection = "" Then Exit Sub
	SelectionNo = Arraygetindex(doc.Part,Selection)

	doc.Part = removeElement(doc.Part,SelectionNo)