Domino 9 und frühere Versionen > ND6: Entwicklung

Antworten zählen.... in der Ansicht

<< < (2/2)

Lossa:
@Bernhard

im Prinzip schon, aber

das liefert nur die unmittelbaren Antworten, nicht aber die Antworten mit Antworten.
Gibt es bei den Navigatorobjekten auch:
CreateViewNavFromDescendants(doc) => Alle Antworten
CreateViewNavFromChildren(doc) => Nur unmittelbare Antworten

koehlerbv:
Jo, Du hast natürlich vollkommen recht ... Und dann noch durch die Antworten gehen und auf Antwort auf Antwort oder noch tiefer zu prüfen, macht meinen Vorschlag natürlich dann zur "etwas" komplizierteren Methode  ;D

Bernhard (denkt das nächste Mal vorher nach)

CLI_Andreas_Schmidt:
Die Lösung von Ullrich läuft perfekt:

Hier damit alles was davon haben.

Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim v As NotesView
   Dim doc As NotesDocument
   Dim collection As NotesDocumentCollection   
   Dim var As Integer
   Dim vnav As NotesViewNavigator
   
   Set db = s.CurrentDatabase
   Set v = db.GetView("Notes-Bearbeiter / Ausgeliefert")
   Set doc = v.GetFirstDocument
   While Not(doc Is Nothing)
      If doc.IsResponse Then
         Goto ende
      Else
         Set vnav = v.CreateViewNavFromDescendants(doc)
         var =    vnav.count
         Call doc.replaceitemvalue("Flag",var)
         Call doc.Save(True, True)
         
      End If
ende:
      Set doc = v.GetNextDocument(doc)
   Wend   


Super

Gruss

Andreas

Semeaphoros:
Dann tust Du uns noch einen Gefallen und setzest den Thread auf erledigt?

Navigation

[0] Themen-Index

[*] Vorherige Sete