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

  • Автор темы I123321
  • Дата начала
I

I123321

#1
Есть вопрос. Возможно ли удаление из вида, если документы в виде разбиты по категориям, необходимо удалять документы не выделяя их, а сразу всю категорию (то есть свернутую)
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#4
Если категория не вложенная, то можно с помощью свойства NotesUIView.CaretCategory узнать категорию, потом NotesView.GetAllDocumentsByKey получить коллекцию и удалить её.
 
I

I123321

#5
спасибо, буду прбывать

сделано так:
Код:
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
что делаю не правильно??? помогите пожалуйста
 
I

I123321

#7
так проверял. на Set dc = view.GetAllDocumentsByKey(category , False) выдает Not a member GetAllDocumentsByKey
 

hosm

* so what *
18.05.2009
2 442
6
#8
можно так
Код:
Set view = workspace.CurrentView	' uiview
category = view.CaretCategory	
Set dc = view.view.GetAllDocumentsByKey(category, False) ' получить view от uiview
 
13.03.2009
625
1
#9
да почти все. начнем с того, что код не компилируеца с включенным "option declare"

view.GetAllDocumentsByKey("view ", False) - нет такого метода в uiview

Копайте в направлении
Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Set uiview = ws.CurrentView
Dim category$
category$ = uiview.CaretCategory

Если категоризованный столбец в виде один и первый сортированный - то
Dim collection As NotesDocumentCollection
Set collection = uiview.View.GetAllDocumentsByKey( category$ , True )
Call collection.RemoveAll( True )

При удалении коллекции не должно быть открытых в UI документов из этой коллекции.( в т.ч. в превью )
З.Ы. Рекомендую включить в настройках дизайнера опцию в Programmers Pane Properties: "Automatically add "option Declare"". Убережетесь от многих проблем.
 
I

I123321

#11
сделал так , по вашим комментариям
Код:
	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
но ничего не удаляется
 

hosm

* so what *
18.05.2009
2 442
6
#12
Omh
я согласна :)
сорри, но я наспех ответила, мне лень было код переписывать (даже сперва для dc Set пропустила - пришлось подправить)
конечно, еще стоило нормально описать переменные, как предложил turumbay
I123321
ой-ой-ой... А зачем 3 раза категорию получать?
Delete dc - удаляет объект коллекции из памяти. посмотри вариант turumbay - RemoveAll !!!
 

NickProstoNick

Статус как статус :)
Lotus team
22.08.2008
1 809
21
#14
мне вот было совсем лень...
Код:
	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
все. теперь точно все
 

Omh

Lotus team
04.07.2007
2 210
1
#15
Ну и естественно, это будет работать, только если в виде одна категолрия :)
 

NickProstoNick

Статус как статус :)
Lotus team
22.08.2008
1 809
21
#16
Да. Этот код для одноуровневой категории. А разве разговор о многоуровневой?
 

Omh

Lotus team
04.07.2007
2 210
1
#17
Ну просто потом I123321 сделает ещё одну категорию и опять появятся вопросы :)
Так сказать "предупреждён - вооружён"
 
I

I123321

#18
а кто нибудь мог бы мне хотябы сказать в каком русле мне надо искать читать, чтобы сделать кнопку для удаления нескольких уровней?
 

Omh

Lotus team
04.07.2007
2 210
1
#19
А что, уже понадобилось?

Как вариант:
1. ты знаешь формулу view
2. ты знаешь название удаляемой категории
3. ты знаешь поле в котором лежит категория

На PostDocumentDelete науськиваешь на базу, например, db.Serach скомпонованный из тех вещей, которые ты знаешь.
На выхлопе получаешь коллекцию, к которой применяешь метод RemoveAll(True) :)