Как взять Unid самого главного родителя?

  • Автор темы oxystile
  • Дата начала
O

oxystile

Доброго времени суток!
Как взять unid самого главного родителя если неизвестно заранее количество ступеней в иерархии?

рекурсия?
спасибо!
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
6
Не обязательно рекурсия.
Обычным циклом(While..Wend) можно.
 
M

morpheus

while doc.IsResponse
set doc = db.GetDocumentByUNID( doc.parentDocumentUNID )
wend

это я на скорую руку написал
doc - NOtesDocument
db - NOtesDatabase
 
O

oxystile

еще вот вопрос назрел, если так
while doc.IsResponse
set doc = db.GetDocumentByUNID( doc.parentDocumentUNID )
wend
то как проверить случаи несушествования документов? ссылка на родителя есть, а самого родителя нету?
спасибо!
 
O

Omh

Код:
Function GetDocByUNID(db As NotesDatabase, doc As NotesDocument, UNID As String) As Boolean
On Error Goto Errh

GetDocByUNID = False

If db Is Nothing Then Exit Function
If Trim$(UNID) = "" Then Exit Function

On Error Resume Next
Set doc = db.GetDocumentByUNID(UNID)
On Error Goto Errh

If Not doc Is Nothing Then GetDocByUNID = True

Exit Function
Errh:
Call ErrHandler
Exit Function
End Function
 
O

oxystile

спасибо!!!!! :(

а в цикле Do While doc.IsResponse ...
наверно, проверка на валидность уже не нужна, т.к.
она уже присутствует GetDocByUNIDA:
If Not GetDocByUNIDA.IsValid Then Set GetDocByUNIDA = Nothing
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!