Domino 9 und frühere Versionen > ND6: Entwicklung

Bestimmte Dokumente per Agent löschen

<< < (6/6)

tks:
Dann mal die View-Property "AutoUpdate" anschauen.

Axel:
Dann kann das so nicht gehen.

Du musst dir auch diese Dokumente zuerst in eine Collection packen und dann abarbeiten.


Axel

Glombi:
Üblicherweise macht man das so:

Dim VEntwuerfe As NotesDatabase
   Dim DocE As NotesDocument
   Dim ViewE As NotesView

dim nextdoc as NotesDocument

   Set VEntwuerfe = S.GetDatabase(strEntwurfDB,strEntwurfPfad)
   Set ViewE = VEntwuerfe.GetView("(LoeschungEntwuerfeE)")
   
   Set View = DB.GetView("(LoeschungEntwuerfe)")
   Set Doc= View.GetFirstDocument
   
   While Not (doc Is Nothing)
      Set nextdoc = View.GetNextDocument(Doc)
      strUnique = Doc.Unique(0)
     
      Set Col = ViewE.GetAllDocumentsByKey(strUnique)
     
      If Not Col Is Nothing Then
         If Col.Count <> 0 Then
            Call Col.RemoveAll(True)
            Call Doc.ReplaceItemValue("txtAktion","gelöscht")
            Call Doc.Save(True, True)
         End If
         
      End If
      Set Doc= nextdoc
   Wend
   Call view.Refresh


Andreas

Wiesel:
Ich hab jetzt auch die andere Ansicht in eine Collection gepackt. Das war´s! Jetzt funzt es einwandfrei.


Ich danke, danke, danke Euch für Eure tolle Hilfe.

Grüße,
Wiesel
:o)

Navigation

[0] Themen-Index

[*] Vorherige Sete