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

[MMN]

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

	Set viewX = CS_GetCurrentDb.GetView( "EmployeeByNameWork" )
Set docX = viewX.GetFirstDocument
While Not(docX Is Nothing)			 
Set view=CS_GetCurrentDb.GetView("(AllPerson)")
Set telDoc=view.GetFirstDocument	

While Not telDoc Is Nothing

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 Nothing

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

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

 

[Klido]

While Not(docX Is Nothing)

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

 

[MMN]

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

скобки из хелпа на плавность полета не влияет

 

[ToxaRat]

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

do Until doc Is Nothing

 

[Medevic]

Может во втором цикле docX меняется и пропадает из вида?
Я бы получил view.AllEntries и ходил бы по ним.

Кстати, зачем в цикле Set view=CS_GetCurrentDb.GetView("(AllPerson)")?

 

[HAL]

... и зачем в цикле Set telDoc=view.GetFirstDocument ?

 

[turumbay]

согласен с Medevic:
колитесь, что происходит с docX во вложенном цикле и зачем переполучаете вьюху "(AllPerson)"
P.S. telDoc из второго цикла не может в какой-то момент указывать на тот же документ, что и docX?

 

[Omh]

Автоапдейты поотрубай у view

Да тут наверно док меняется, перестаёт отображаться во view и на GetNextDocument вылетает.
Брать view в цикле - сииила!

 

[MMN]

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

Set viewX = CS_GetCurrentDb.GetView( "EmployeeByNameWork" )
Set view=CS_GetCurrentDb.GetView("(AllPerson)")
Set docX = viewX.GetFirstDocument
While Not docX Is Nothing

Set telDoc=view.GetFirstDocument	

While Not telDoc Is Nothing
Set telDoc=view.GetNextDocument(telDoc)
Wend		

Set docX = viewX.GetNextDocument(docX)
Wend

никак не повлияло

 

[Darker]

viewX.AutoUpdate=false
view.AutoUpdate=false
поставь

 

[MMN]

Автоапдейты поотрубай у view

viewX.Autoupdate=False
view.Autoupdate=False
не помогает

 

[Klido]

Да тут наверно док меняется, перестаёт отображаться во view и на GetNextDocument вылетает.

MMN
колитесь что с доком делаете! как предложили выше... если, конечно, это не просто цикл B)

 

[MMN]

колитесь что с доком делаете!

в том то и дело что ничего не делаю )) по логике ошибки я понимаю что не находит документ
база тестовая, я в ней один
как только убираем перебор
While Not telDoc Is Nothing
Set telDoc=view.GetNextDocument(telDoc)
Wend
в котором даже нет принта, все начинает работать

 

[Darker]

А объекты все ты описывал явно?

 

[Medevic]

М.б. представления кривые? Перестроить индексы или вообще пересоздать представления.

 

[Omh]

А объекты все ты описывал явно?

Кстати, да!

 

[Darker]

попробуй так

	Set viewX = CS_GetCurrentDb.GetView( "EmployeeByNameWork" )
Set view=CS_GetCurrentDb.GetView("(AllPerson)")
Set docX = viewX.GetFirstDocument
While Not docX Is Nothing
set docX1=docX
Set docX = viewX.GetNextDocument(docX1)
'Дальше если надо используй docX1
Set telDoc=view.GetFirstDocument	

While Not telDoc Is Nothing
Set telDoc=view.GetNextDocument(telDoc)
Wend		

Wend

 

[MMN]

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

 

[Klido]

MMN
только хотел напомнить линк

Ссылка скрыта от гостей

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

 

[Xalet]

у меня несколько похожих вложенных циклов работают норм...

Мб от вьюшек зависит? Скажем как вариант одинаковые доки в них встречаются или нет.