I
Idea
Доброго времени суток. Возникла следующая проблема.
В базе висит иерархия документов (до 5ти уровней вложенности). Необходимо написать кнопку для качественной чистки базы, при нажатии которой (на представлении) удалится выбранный документ вместе со всеми нижними по уровню, которые связаны с ним. Сейчас работает код:
Но соответственно удаляет он только первый уровень респонсов. Подскажите, как рекурсивно копнуть до самого низа иерархии?
В базе висит иерархия документов (до 5ти уровней вложенности). Необходимо написать кнопку для качественной чистки базы, при нажатии которой (на представлении) удалится выбранный документ вместе со всеми нижними по уровню, которые связаны с ним. Сейчас работает код:
Код:
Dim ws As New NotesUIWorkspace
Dim sh As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = sh.CurrentDatabase
Set doc = db.GetDocumentByID(ws.CurrentView.CaretNoteID)
If (doc Is Nothing) Then
Msgbox "Не выбран документ для удаления"
Exit Sub
End If
If doc.Responses.Count>0 Then
doc.Responses.RemoveAll(True)
End If
doc.Remove(True)
ws.ViewRefresh