I
I123321
Есть вопрос. Возможно ли удаление из вида, если документы в виде разбиты по категориям, необходимо удалять документы не выделяя их, а сразу всю категорию (то есть свернутую)
15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby
За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.
На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.
Запись на курс до 25 апреля. Получить промодоступ ...
Dim view As NotesUIView
Dim category As Variant
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Set db = session.CurrentDatabase
Set view = workspace.CurrentView
category = view.CaretCategory
Set view = db.GetView( "category" )
Set dc = view.GetAllDocumentsByKey("view ", False)
Delete dc
Set view = workspace.CurrentView ' uiview
category = view.CaretCategory
Set dc = view.view.GetAllDocumentsByKey(category, False) ' получить view от uiview
да почти все. начнем с того, что код не компилируеца с включенным "option declare"что делаю не правильно???
Только тогда эту переменнуюможно так
Set view = workspace.CurrentView
dc = view.view.GetAllDocumentsByKey
Dim workspace As New NotesUIWorkspace
Dim view As NotesUIView
Dim category As Variant
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Set db = session.CurrentDatabase
Set view = workspace.CurrentView
category = view.CaretCategory
Messagebox "Категория '" + category + "' будет удалена"
category = view.CaretCategory
Set view = workspace.CurrentView
category = view.CaretCategory
Set dc = view.view.GetAllDocumentsByKey(category, False)
Delete dc
Орлята учатся летатьcategory = view.CaretCategory
...
category = view.CaretCategory
...
category = view.CaretCategory
Dim WS As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim view As NotesView
Dim category As Variant
Dim dc As NotesDocumentCollection
Set uiview = WS.CurrentView
Set view = uiview.View
category = uiview.CaretCategory
Set dc = view.GetAllDocumentsByKey( category, True)
Call dc.RemoveAll( True )
Call ws.ViewRefresh
Обучение наступательной кибербезопасности в игровой форме. Начать игру!