Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Hedwig14 am 19.04.10 - 11:48:38
-
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
-
Wieso denn GetNextCategory ? Was soll der Code denn bitte tun ?
-
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
-
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 (http://atnotes.de/index.php/topic,45454.msg292323/topicseen.html#msg292323)
-
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 (http://www-01.ibm.com/support/docview.wss?uid=swg21096729)
In a LotusScript agent in Lotus Notes®, the handle to a NotesViewEntry object gets corrupted when saving a document (NotesDocument object) in another view. ...
-
ah I see!
Super, hat geholfen ! Danke !