Patch for AppendToTextList method

This Content Component encountered an error

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
     Stop
     ' First pass without any values
     If Ubound(ItemList.Values) = 0 And ItemList.Text = "" Then
          Limit = 0
     Else
          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


This was first published in January 2001

Dig deeper on Domino Resources - Part 5

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com'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 ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close