Dim arrnd() As Notesdocument
Dim nd As notesdocument
Dim nd2 As notesdocument
Dim NomApell As String
Dim NomApellnuevo As String
Redim arrnd(ndc.count-1)
Redim arrndnuevo(ndc.count-1)
For i=1 To ndc.count
Set arrnd(i-1)=ndc.getnthdocument(i)
Next
For x=0 To Ubound(arrnd)
For z=0 To Ubound(arrnd)
Set nd=arrnd(x)
NomApell=nd.ApelTrab(0)+","+nd.NombTrab(0)
Set nd2=arrnd(z)
NomApellnuevo=nd2.ApelTrab(0)+","+nd2.NombTrab(0)
If NomApellnuevo>NomApell Then
Set arrnd(x)=nd2
Set arrnd(z)=nd
End If
Next
Next
ordenarcoleccion=arrnd
End Function
|
Otros documentos de LotusScript
|