A
alik86
Понадобился агент, который брал бы документы из определенного вида, проверял бы некоторые условия и в зависимости от их выполнения удалял бы из документов определенные поля. Написал следующее.
Казалось бы, чего этому Лотусу не хватает, ан нет, материт меня ошибкой: «Notes Error: Entry not found in index (VievName)»
Будьте так любезны, подскажите чего ему всё таки не хватает?
P.S. Если убрать строку Call Doc.Save(True, True), то нормально перебирает все документы, но мне же надо сохранить изменения.
Добавлено: Извиняюсь за засер. Не нашел, как удалить продублировавшуюся тему.
Код:
Sub Initialize
Dim Session As New NotesSession
Dim Db As NotesDatabase
Dim View As NotesView
Dim Doc As NotesDocument
‘//...
‘//On Error Resume Next
Set Db = Session.CurrentDatabase
Set View = Db.GetView("ViewName")
Set Doc = View.GetFirstDocument
While Not (Doc Is Nothing)
‘//if…
Call Doc.RemoveItem("Item1")
Call Doc.RemoveItem("Item2")
Call Doc.Save(True, True) ‘//если убрать, то все перебирает
‘//End If…
Set Doc = View.GetNextDocument(Doc) ‘//на этой строке ругает
Wend
End Sub
Будьте так любезны, подскажите чего ему всё таки не хватает?
P.S. Если убрать строку Call Doc.Save(True, True), то нормально перебирает все документы, но мне же надо сохранить изменения.
Добавлено: Извиняюсь за засер. Не нашел, как удалить продублировавшуюся тему.