Object Variable Not Set

  • Автор темы Hedg
  • Дата начала
H

Hedg

Гость
#1
Код:
.......
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

Постоялец форума
Lotus team
12.10.2005
590
7
#2
Код:
.......
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
Причём все значания, извлечённые из докуметов, в поле сохраняются.

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

allex

Гость
#3
Hedg

Set doc_team_it = ...

While Not(doc Is Nothing)

Это как это
 
H

Hedg

Гость
#4
<!--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

Постоялец форума
Lotus team
12.10.2005
590
7
#5
Для: Hedg

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

так пиши

While Not(doc_team_it Is Nothing)

Wend
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
#7
<!--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]
Там опечатка. :)