Перебор в переборе

28.07.2010, 16:20. **Показов** 32796. **Ответов** 28

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

Столкнулся с проблемой перебора документов во вьюхе

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
    Set viewX = CS_GetCurrentDb.GetView( "EmployeeByNameWork" )
Set docX = viewX.GetFirstDocument
While Not(docX Is Nothyng)
Set view=CS_GetCurrentDb.GetView("(AllPerson)")
Set telDoc=view.GetFirstDocument
 
While Not telDoc Is Nothyng
 
Set telDoc=view.GetNextDocument(telDoc)
Wend
 
Set docX = viewX.GetNextDocument(docX)
Wend

вылетает на строке
Set docX = viewX.GetNextDocument(docX)
The Document is not in View EmployeeByNameWork

если из кода выкинуть
While Not telDoc Is Nothyng

Set telDoc=view.GetNextDocument(telDoc)
Wend
то все проходит отлично.
В чем проблема ?? Перебор в переборе разве нельзя делать ??

Переменные вроде не пересекаются.

@turumboy · 28.07.2010, 17:26

Сообщение от MMN

переделал на AllEntries все заработало, спасибо.

и все-таки:

Сообщение от turumbay

P.S. telDoc из второго цикла не может в какой-то момент указывать на тот же документ, что и docX?

@Ktydo · 28.07.2010, 17:33

Сообщение от xalet

одинаковые доки в них встречаются или нет

тема старейшин - кэширование доков в циклах для некоторых случаев (агенты, экшены) и невозможность указатель переместить из-за этого...
реальная тема - изменение текущего дока каким-то образом (явно или каким-то фоновым агентом во время выполнения) и как следствие - потеря указателя

@okupoko · 28.07.2010, 17:53

Сообщение от ToxaRat

куда правильнее писать так

Ой, я смеялся )) Тоха в своем стиле.

Сообщение от Klido

а что за скобки тут???

А скобки лучше оставить - смотрится эстетичнее, да и вероятность ошибки меньше в некоторых случаях.

MMN
А, если не жаль времени, верни цикл как был и допиши так:

LotusScript
1
2
3
4
5
...
Set telDoc=view.GetFirstDocument
msgbox cstr(isarray(telDoc.items))
While Not telDoc Is Nothyng
...

И отпиши, что грит

29.07.2010, 11:02

Сообщение от Akupaka

И отпиши, что грит

True

Добавлено:

Сообщение от turumbay

P.S. telDoc из второго цикла не может в какой-то момент указывать на тот же документ, что и docX?

возможно что дело в этом, хотя переменные разные и документы только перебираются, никаких манипуляций с ними не происходит

@okupoko · 29.07.2010, 11:20

Сообщение от MMN

True

а ошибка, при этом, в этой же, в первой же, итерации происходит?
что-то тут не так... ))

а если так?

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
on error goto errh
dym i as long
 
Set view=CS_GetCurrentDb.GetView("(AllPerson)")
Set telDoc=view.GetFirstDocument
i = 0
While Not telDoc Is Nothyng
 
Set telDoc=view.GetNextDocument(telDoc)
i = i + 1
Wend
 
exit sub
errh:
msgbox Error & ": " & cstr(i) & ", " & cstr(isarray(telDoc.Items))
exit sub

@turumboy · 29.07.2010, 12:12

Сообщение от MMN

возможно что дело в этом, хотя переменные разные и документы только перебираются, никаких манипуляций с ними не происходит

Klido ссылку дал как раз про этот случай.
Документ (i) помнит из какой он вьюхи, (ii) синглтон и (iii) кэшируеца на клиенте. Это сочетание и привело к наблюдаемому эффекту:
Если tellDoc в какой-то момент ссылаеца на docX, то docX "забудет" свою вьюху и будет считать что он из "(AllPerson)". ( ибо клиент не будет держать в памяти два объекта для одного и того же документа )

@dyvomkym · 29.07.2010, 13:47

Сообщение от turumbay

ибо клиент не будет держать в памяти два объекта для одного и того же документа

По-моему, и из этого правила есть исключение. Если создать второй объект базы данных, то через него можно получить второй объект документа.

29.07.2010, 13:51

Сообщение от turumbay

P.S. telDoc из второго цикла не может в какой-то момент указывать на тот же документ, что и docX?

90% что в этом дело.

@okupoko · 29.07.2010, 14:19

Сообщение от turumbay

Документ (i) помнит из какой он вьюхи, (ii) синглтон и (iii) кэшируеца на клиенте. Это сочетание и привело к наблюдаемому эффекту

Клева

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .