Удаление из вида

    Dim WS As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim view As NotesView
Dim category(1) As Variant
Dim dc As NotesDocumentCollection
Dim Session As New NotesSession
Dim Db As NotesDatabase
Dim Doc As NotesDocument

Set DB = Session.CurrentDatabase
Set uiview = WS.CurrentView
Set Doc = db.GetDocumentByID( uiview.CaretNoteID )

category(0) = Doc.<название поля1>(0)
category(1) = Doc.<название поля2>(0)

Set View = DB.GetView( <Название вида> )
Set dc = view.GetAllDocumentsByKey( category, True)

Call dc.RemoveAll( True )

Call ws.ViewRefresh

category(0) = Doc.<название поля1>(0)
category(1) = Doc.<название поля2>(0)

        Dim WS As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim view As NotesView
Dim category As Variant
Dim dc As NotesDocumentCollection
Dim Session As New NotesSession
Dim Db As NotesDatabase
Dim Doc As NotesDocument
Set DB = Session.CurrentDatabase
Set uiview = WS.CurrentView
Set Doc = db.GetDocumentByID( uiview.CaretNoteID )
category = Doc.Name(0)

    Dim NUIWS As New NotesUIWorkspace
Dim NDC As NotesDocumentCollection
Dim NDB As NotesDatabase
Dim NVN As NotesViewNavigator
Dim ND As NotesDocument
Dim strCaretNoteID As String

Set NDB = NUIWS.CurrentDatabase.Database
Set NVN = NUIWS.CurrentView.View.CreateViewNavFromCategory(NUIWS.CurrentView.CaretCategory)
Set ND = NVN.GetFirst.Document
Set NDC = view.GetAllDocumentsByKey( ???????, True)
Call NDC.RemoveAll( True )
Call NUIWS.ViewRefresh

    Dim NUIWS As New NotesUIWorkspace
Dim NDC As NotesDocumentCollection
Dim NDB As NotesDatabase
Dim NVN As NotesViewNavigator
Dim ND As NotesDocument
Dim view As NotesView

Set NDB = NUIWS.CurrentDatabase.Database
Set NVN = NUIWS.CurrentView.View.CreateViewNavFromCategory(NUIWS.CurrentView.CaretCategory)
Set ND = NVN.GetFirst.Document
category = ND.Name(0)
Set NDC = view.GetAllDocumentsByKey( category, True)
Call NDC.RemoveAll( True )
Call NUIWS.ViewRefresh

Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim NUIWS As New NotesUIWorkspace
Dim NV As NotesView
Dim NVN As NotesViewNavigator
Dim NVE As NotesViewEntry
Dim strCaretCategory As String

Set db = session.CurrentDatabase
strCaretCategory = NUIWS.CurrentView.CaretCategory
Set NV = NUIWS.CurrentView.View

Set dc = db.Search({}, Nothyng, 0)
Dim ve As NotesViewEntry
Set NVN = NV.CreateViewNav()
Set NVE = NVN.GetPos(strCaretCategory, ".")

Call AddChilds(dc, nvn, nve)
Call dc.RemoveAll(True)
Call NUIWS.ViewRefresh()
End Sub

Sub AddChilds(dc As NotesDocumentCollection, nvn As NotesViewNavigator, nve As NotesViewEntry)
Dim ve As NotesViewEntry
Set ve = nvn.GetChild(nve)
While Not (ve Is Nothyng)
Messagebox(ve.ColumnValues(Ubound(ve.ColumnValues)))
If ve.IsDocument Then Call dc.AddDocument(ve.Document)
Call AddChilds(dc, nvn, ve)
Set ve = nvn.GetNextSibling(ve)
Wend
End Sub

Sub Click(Source As Button)
Dim NUIWS As New NotesUIWorkspace
Dim NV As NotesView
Dim NVN As NotesViewNavigator
Dim NVE As NotesViewEntry
Dim strCaretCategory As String
Dim blnContains As Boolean

blnContains = False
strCaretCategory = NUIWS.CurrentView.CaretCategory
Set NV = NUIWS.CurrentView.View
Set NVN = NV.CreateViewNav()
Set NVE = NVN.GetFirst
пустая коллекция:
Dim collection As NotesDocumentCollection
Set collection = NV.Parent.Search( "" , Nothyng , 0 )

Do While Not(NVE Is Nothyng)
If Instr(NVE.GetPosition("."), strCaretCategory)=1 Then
blnContains = True
добавляем документ в коллекцию:
If NVE.IsDocument Then
On Error 4469 Resume Next
Call collection.AddDocument( nve.Document )
End If
Elseif blnContains Then
Exit Do
End If
Set NVE = NVN.GetNext(NVE)
Loop
if collection.count > 0 then Call collection.RemoveAll( True )
End Sub