Hallo Leute,
ich möchte die Inhalte eines Feldes alphabetisch sortiert bekommen. Ich habe also in einem Feld eine Anzahl von Werten, die mir durch eine Aktions sortiert werden sollen.
Da ich meisten nachsehe, was die mitgelieferten DB so dafür hergeben, bin ich im names.nsf auf diesen Script gestoßen, den ich dann auf mein Feld abgeändert habe:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim profile As NotesDocument
Dim uidoc As notesuidocument
Dim flag As String
Dim w As New NotesUIWorkspace
Dim s As New NotesSession
Set db = s.CurrentDatabase
Set uidoc=w.currentdocument
Set doc = uidoc.document
Set profile=db.GetProfileDocument("DirectoryProfile")
If profile.GetItemValue("GroupSortDefault")(0)="1" Then
On Error Resume Next
FieldList=Evaluate(|@Name([Abbreviate];FELDNAME)|,doc)
Call QuickSort(FieldList)
Call doc.ReplaceItemValue("FELDNAME",SortedArray)
Call doc.ReplaceItemValue("FELDNAME", Evaluate(|@Name([Canonicalize];Members)|,doc))
Call uidoc.refresh
End If
End Sub
Er jammert aber immer bei "Call QuickSort(FieldList)". Warum ? Ich habe noch nie mit LotusScript was gemacht, und weiß daher auch nicht, was er vonn mir will ! Wo soll ich noch was eintragen ? Gibt es nicht irgentwie ne Formel wie z.B. @Sort oder sowas ähnlichen, die ich übersehen habe ?
Hoffentlich kann mir jemand weiterhelfen ! BITTE !
DomAdmin
