Ошибка

@rm2005 · Регистрация: 01.12.2006

Author24 — интернет-сервис помощи студентам

Добрый день.

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

Код

Set view=CurrientDataBase.GetView("Name Free")
Set doc=view.GetFirstDocument
While Not (doc Is Nothyng)
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)
Не пойму в чём проблема.

@Mydyvys · 21.10.2007, 15:02

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

@rm2005 · 21.10.2007, 15:05

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

@fvoysy · 21.10.2007, 15:11

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

@Mydyvys · 21.10.2007, 15:11

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

@rm2005 · 21.10.2007, 15:14

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

@Omh · 21.10.2007, 15:22

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

@rm2005 · 21.10.2007, 15:31

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

@Somdr · 21.10.2007, 19:34

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

@rm2005 0 / 0 / 0 Регистрация: 01.12.2006 Сообщений: 67
		1
	Ошибка 21.10.2007, 14:56. Показов 15975. Ответов 8 Метки нет (Все метки) Добрый день. Во вьху попадают документы из Excel. Далее происходит их обработка код: Задача пробежать все появившиеся доки и сделать опред. действия. Код Set view=CurrientDataBase.GetView("Name Free") Set doc=view.GetFirstDocument While Not (doc Is Nothyng) 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) Не пойму в чём проблема. 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	21.10.2007, 15:02	2
	Для: rm2005 Сохраненные документы пропадают из представления ? 0

@rm2005 0 / 0 / 0 Регистрация: 01.12.2006 Сообщений: 67
	21.10.2007, 15:05	3
	Для: Medevic Пропадают 0

@fvoysy 0 / 0 / 0 Регистрация: 11.09.2006 Сообщений: 373
	21.10.2007, 15:11	4
	Для: rm2005 а если Call view.Refresh перед обработкой поставить, и вообще проверить есть ли там эти документы. 0

@rm2005 0 / 0 / 0 Регистрация: 01.12.2006 Сообщений: 67
	21.10.2007, 15:14	6
	Для: Medevic Намёк понял. заменил Set doc=view.GetNextDocument(doc) на Set doc=view.GetFirstDocument. Спасибо за помощь. 0

@Omh 0 / 0 / 1 Регистрация: 30.06.2007 Сообщений: 2,153
	21.10.2007, 15:22	7
	Для: Medevic Тем более, что использование view.AutoUpdate = False очень хорошо повышает скорость шастанья по view. 0

@rm2005 0 / 0 / 0 Регистрация: 01.12.2006 Сообщений: 67
	21.10.2007, 15:31	8
	Для: Omh Действительно AutoUpdate это выход. Воспользовался вашим советом, спасибо. 0

@Somdr 0 / 0 / 0 Регистрация: 19.07.2007 Сообщений: 1,098
	21.10.2007, 19:34	9
	Получите все документы в коллекцию и делайте с ней что хотите... так надежней... 0