Ошибка

[rm2005]

Добрый день.

Во вьху попадают документы из Excel. Далее происходит их обработка код:
Задача пробежать все появившиеся доки и сделать опред. действия.

Set view=CurrientDataBase.GetView("Name Free")
Set doc=view.GetFirstDocument
While Not (doc Is Nothing)
item=doc.GetItemValue("Name")	
...
Set item=doc.AppendItemValue("NotesИмя", LotusName)
.....
Call doc.Save(False,False)
Set doc=view.GetNextDocument(doc)
Wend
Call view.Refresh

На строке Set doc=view.GetNextDocument(doc) вылетает ошибка: Не найдена запись в индексе (Name Free)
Не пойму в чём проблема.

 

[Medevic]

Для: rm2005
Сохраненные документы пропадают из представления ?

 

[rm2005]

Для: Medevic
Пропадают

 

[fvoice]

Для: rm2005
а если Call view.Refresh перед обработкой поставить, и вообще проверить есть ли там эти документы.

 

[Medevic]

Для: rm2005
Ну тогда что ты хочешь ? :wacko:
Не может он следующий док получить, т.к. текущего уже нет.
Перед обработкой поставь view.AutoUpdate = False. После - view.AutoUpdate = True.

 

[rm2005]

Для: Medevic
Намёк понял. заменил Set doc=view.GetNextDocument(doc) на Set doc=view.GetFirstDocument.
Спасибо за помощь.

 

[Omh]

Для: Medevic
Тем более, что использование view.AutoUpdate = False очень хорошо повышает скорость шастанья по view.

 

[rm2005]

Для: Omh
Действительно AutoUpdate это выход. Воспользовался вашим советом, спасибо.

 

[Sandr]

Получите все документы в коллекцию и делайте с ней что хотите... так надежней...