Domino 9 und frühere Versionen > ND6: Entwicklung

Schleife für kategorisierte Ansicht

(1/2) > >>

sja:
Hallo @ALL,


Vielen Dank im Voraus, wenn jemand mit einem Bsp., Hinweis, Link mir auf dem Sprunge helfen würde.

In einem View sind die Dokumente in der 1. Spalte kategorisiert (die Spalte enthält Usernamen). Dann sollte alle Doku-Links für je Username (Category) in eine Tabelle gepackt werden und per Email an den User gesendet werden


Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim nav As NotesViewNavigator
Dim entry As NotesViewEntry
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")

1. Frage: Wie kann ich den Category-Wert ermitteln (die brauche ich auch für Email-Adresse)
         Set nav = view.CreateViewNavFromCategory(???)
2. Frage: Nach meinem Verständnis sollte hier eine Schleife organisiert werden, die alle Category-Werte durch geht
und
z. B. folgenden Block enthält
     Set entry = nav.GetFirstDocument
     While Not ( entry Is Nothing )
         Call MailFunktion()
         Set entry = nav.GetNextDocument(entry )
     Wend

3. Ob ich meine Fragen verständlich formuliert habe? (Wenn nicht, gerne versuche die anders formulieren).
4. Ob ich mit meinem o.g. Code überhaupt in der richtige Richtung denke?

Danke schöne und Gruesse
Sofia

koehlerbv:
Hallo Sofia,

wenn ich es richtig verstehe, dann musst Du doch sowieso durch alle Dokumente der Ansicht loopen ? Dann würde ich es gar nicht so kompliziert machen:
Erstes Dokument holen, dieses und alle weiteren solange verarbeiten, bis das zur Kategorisierung verwendete Item seinen Inhalt wechselt.
Mit diesem Dokument jetzt weitermachen wie unter "Erstes Dokument" und so weiter, bis irgendwann NotesDocument Nothing ist.

Bernhard

sja:
Hallo Bernhard,

danke schön für deinen schnelle Antwort.

Die Sache ist, wie erkenne ich, dass den Wert in dem Feld "Name" gewechselt hat. Genau das dachte ich mir mit Category zu ermitteln.  Aber wenn das geht nicht, dann überlege ich mir, wie nach deinem Vorschlag ich kodieren soll.

Vielen Dank und schöne Gruesse
Sofia

koehlerbv:
Dim szCategory As String
Set docCurrent = viewLoopThrough.GetFirstDocument
szCategory = docCurrent.CategoryField (0)

So in dieser Art. Das Loopen durch die Dokumente, solange szCategory = docCurrent.CategoryField (0) ist, sollte besser in eine eigene Sub ausgelagert werden (wegen der Übersichtlichkeit).

Bernhard

sja:
herzlichen Dank, Bernhard, für die Hilfe!

Schöne Gruesse
Sofia

Navigation

[0] Themen-Index

[#] Nächste Seite