S
soleil
Необходимо программно переместить строку выделения на другой документ в представлении. Можно ли как-то использовать для этого UnprocessedDocuments?
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim workspace As New NotesUIWorkspace
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim uiview As NotesUIView
Set db = session.CurrentDatabase
Set uiview = workspace.CurrentView
Set collection = db.AllDocuments
Set doc = collection.GetFirstDocument
Call uiview.SelectDocument(doc)
End Sub
Set UIView = ws.CurrentView
On Error Resume Next
If Not uiView Is Nothing Then
Call uiView.View.Refresh
UIView.SelectDocument(doc)
End If
On Error Goto 0
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab