Manage Learn to apply best practices and optimize your operations.

Code To Sort Multi-Value Fields

Code to sort multi-value fields.
Sub Click(Source As Button)
Dim w As New notesuiworkspace
Dim u As notesuidocument
Dim d As notesdocument
Dim a As Variant

Set u = w.currentdocument
Call u.refresh
Set d = u.document

n1 = Ubound(d.list)
If n1 < 1Then
Messagebox "Nothing to sort"
Exit Sub
End If

a = d.list
n = Ubound(a) + 1

For I = 1 To (n-1)
J = I
Do While J >= 1
If a(J) < a(J-1) Then
T = a(J)
T1 = a(J-1)
a(J) = T1
a(J-1) = T
J = J - 1
Else
Exit Do
End If
Loop
Next

d.list = a
Call u.reload
Call u.refresh

End Sub

Dig Deeper on Lotus Notes Domino Administration Tools

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-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 ...

SearchDataCenter

SearchContentManagement

Close