Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: DomAdmin am 09.12.02 - 13:46:37
-
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
-
... dort wo du den Code entnommen hast gibt es eine Funktion, die so heißt, du mußt die Funktion mit übernehmen...
... es kann natürlich auch sein, daß die Funktion in einer Library enthalten ist. In den Options findest du die Namen der eingebetteten Libraries...
ata
Korrektur:
... du findest in den Globals der Maske "Group" 3 Funktionen, in den Declarations eine globale Variable... - alles in die Globals deiner Maske übernehmen, dann klappt es...
ata
-
Hallo Ata,
ich habe die Script-Bibliotheke durchsucht, da ist aber nix mit QickSort. nur in der Maske bei QuerySave das gleiche Script wie auch bei der Aktion.
Wie würdest du das machen mit dem Sortieren ?
DomAdmin
-
... ich habe meine vorherige Antwort korrigiert, dort steht die Antwort...
ata
-
Lieber Ata,
DANKE ! Es funktioniert ! Du bist ein Schatz ! Zum Glück sieht mich jetzt keiner auf dem Stuhl rumhüpfen ! ;D
Vielen Dank nochmal !
DomAdmin