nav.GetNextCategory(entry)

[Hedwig14]

Hallo,

dieser Code verliert nach dem ersten Lauf durch die While-Schleife seinen Index.
Habe ich etwas falsch gemacht


Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim pruefdoc As NotesDocument
   Dim Profildoc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set view = db.GetView("ImportHardware")
   Set ProfilDoc = db.GetProfileDocument( "(Datenbank Profil)" )
   
   
   Dim entry As NotesViewEntry
   Dim nav As NotesViewNavigator
   Set nav = view.CreateViewNav
   Set entry = nav.GetFirst
   
   While Not entry Is Nothing
      Set pruefdoc = New NotesDocument(db)   
      pruefdoc.Form = "Pruefdocument"   
      pruefdoc.KostSt = entry.ColumnValues(0)
      Call pruefdoc.Save(True,True)   
      Set entry = nav.GetNextCategory(entry)
   Wend
   
   
End Sub

[Driri]

Wieso denn GetNextCategory ? Was soll der Code denn bitte tun ?

[Hedwig14]

Der Code soll je bestehender Kategorie ein neues Dokument mit dem Kategorienamen erstellen.
Mit der ersten gefundenen Kategorie klappt das auch aber dann verliert er den Index

[Demian]

hört sich nach dem selben Problem an, was ich auch mal hatte. Siehe: http://atnotes.de/index.php/topic,45454.msg292323/topicseen.html#msg292323

[Driri]

Ah, ok. Danke für die Klarstellung.

Hast Du schon einmal versucht, für die genutzte View das AutoUpdate zu deaktivieren ? Nicht daß da im Hintergrund irgendwelche Dokumente verändert werden und die Indexe sich ändern. Du mußt dann nur auf jeden Fall nach der While-Schleife das AutoUpdate auch wieder aktivieren.

Das Verhalten ist auch in dieser Technote beschrieben :

Error: 'Entry not found in index' when calling method of NotesViewNavigator class

In a LotusScript agent in Lotus Notes®, the handle to a NotesViewEntry object gets corrupted when saving a document (NotesDocument object) in another view. ...

[Hedwig14]

ah I see!

Super, hat geholfen ! Danke !