Object Variable Not Set

[Hedg]

.......
Dim view_it_team As NotesView
Dim doc_team_it As NotesDocument
Set view_it_team = db.GetView("IT")

Set doc_team_it = view_it_team.GetFirstDocument
While Not(doc Is Nothing)
Call uidoc.FieldAppendText("TempFIO_1", doc_team_it.F(0)+" "+doc_team_it.I(0)+" "+doc_team_it.M(0)+Chr(10))
Set doc_team_it = view_it_team.GetNextDocument(doc_team_it)
Wend

Когда обрабатывается последний документ, получаю Object Variable Not Set
Причём все значания, извлечённые из докуметов, в поле сохраняются.

 

[DNT]

.......
Dim view_it_team As NotesView
Dim doc_team_it As NotesDocument
Set view_it_team = db.GetView("IT")

Set doc_team_it = view_it_team.GetFirstDocument
While Not(doc Is Nothing)
Call uidoc.FieldAppendText("TempFIO_1", doc_team_it.F(0)+" "+doc_team_it.I(0)+" "+doc_team_it.M(0)+Chr(10))
Set doc_team_it = view_it_team.GetNextDocument(doc_team_it)
Wend

Когда обрабатывается последний документ, получаю Object Variable Not Set
Причём все значания, извлечённые из докуметов, в поле сохраняются.

а ты посмотри внимательно на условие выхода из цикла

 

[allex]

Hedg

Set doc_team_it = ...

While Not(doc Is Nothing)

Это как это

 

[Hedg]

<!--QuoteBegin-DNT+14:03:2007, 12:05 -->
<span class="vbquote">(DNT @ 14:03:2007, 12:05 )</span><!--QuoteEBegin-->ты посмотри внимательно на условие выхода из цикла

[snapback]59008" rel="nofollow" target="_blank[/snapback]​

[/quote]
Ну как я понимаю пока не кончатся доки во вьюхе.
Если я не прав, то как правильно описать условие????

 

[DNT]

Для: Hedg

так Lotus-у непонятно какой документ "должен закончиться"

так пиши

While Not(doc_team_it Is Nothing)

Wend

 

[Hedg]

Для: DNT
Спасибо, дуплю жестоко. =)

 

[Medevic]

<!--QuoteBegin-Hedg+14:03:2007, 13:09 -->
<span class="vbquote">(Hedg @ 14:03:2007, 13:09 )</span><!--QuoteEBegin-->Ну как я понимаю пока не кончатся доки во вьюхе

[snapback]59010" rel="nofollow" target="_blank[/snapback]​

[/quote]
Там опечатка.