Manage Learn to apply best practices and optimize your operations.

Patch for AppendToTextList method

This is a solution if you have problems with the AppendToTextList method from NotesItem class.

Code: Sub Click(Source As Button)
     Dim ws As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Dim doc As NotesDocument
     Dim item As NotesItem
     Set uidoc = ws.CurrentDocument
     Set doc = uidoc.Document
     Set item = doc.GetFirstItem("Result")
     Call AppendToTextList(item, doc.NewValue(0))
End Sub

Sub AppendToTextList (ItemList As NotesItem, Value As Variant)
     Dim tmpItemList() As Variant
     Dim i, Limit As Integer
     ' First pass without any values
     If Ubound(ItemList.Values) = 0 And ItemList.Text = "" Then
          Limit = 0
          Limit = Ubound(ItemList.Values) + 1
     End If
     Redim tmpItemList(Limit) As Variant
     i = 0
     Forall x In ItemList.Values
          tmpItemList(i) = x
          i = i + 1
     End Forall
     tmpItemList(Limit) = Value
     ItemList.Values = tmpItemList
End Sub

Dig Deeper on Domino Resources - Part 5

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.




  • iSeries tutorials's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...