Domino 9 und frühere Versionen > Entwicklung

Kategorien mittels Lotus Script

<< < (2/3) > >>

klaussal:
@glombi,

ich glaube, er möchte alle kategorien gelistet bekommen. und das geht m.w.n. nicht. :'(

klaussal:
... oder dieses script "aufbohren":

Sub Initialize
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim nav As NotesViewNavigator
    Dim entry As NotesViewEntry
    Dim count As Integer
    Set db = New NotesDatabase( "", "Learning LotusScript.nsf" )
    Set view = db.GetView( "By Category" )
    Set nav = view.CreateViewNav( )
    Set entry = nav.GetFirst
    count = 0
    ' begin counting categories
    ' stop when there are no more categories
    Do Until entry Is Nothing
        count = count + 1
        Set entry = nav.GetNextCategory( entry )
    Loop
    Messagebox "Number of categories = " & count,, "By Category"
End Sub

... stammt übrigens aus der designer-hilfe  ;D

Glombi:
Doch, ganz einfach

Dim kategorie_Array as Variant
kategorie_Array = Evaluate(|@Unique(@DbColumn("";"";"Name der Ansicht";1))| )

liefert alle Kategorien als Array zurück.

Andreas

klaussal:
... naja, ist halt schon freitag  :P
mann lernt eben nie aus  ;D

inu:
Ja, sicher, ist die einfachste Lösung.

Danke :)

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete