Общие вопросы > Разработка приложений

Удалить всю категорию

(1/2) > >>

K85:
Необходимо удаленить все документы категории из вида нажатием на кнопку.
Делаю так, но почему-то всегда выводит 0, т.е. не удаляет ничего. Может мне кто-нибудь помочь?

--- Код: ---    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( "" , Nothing , 0 )
   
    Do While Not(NVE Is Nothing)
        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 )
    Messagebox(collection.count )
    Call NUIWS.ViewRefresh()

--- Конец кода ---

ViV:
Добрый день!

Представление содержит только одну категорию? по номеру документа в нем?
В условие ...If Instr(NVE.GetPosition("."), strCaretCategory)=1 Then... заходит?

K85:
Добрый день. Нет представление содержит несколько категорий. И при выборе одной из категорий она (категория с подкатегориями и документами) должна удаляться. После If Instr(NVE.GetPosition("."), strCaretCategory)=1 Then всегда выполняется else. Первая колонка в виде с формулой @DocNumber

ViV:
Попробуйте вывести значение strCaretCategory. Вроде бы CaretCategory работает только для вида с одной категорией.

K85:
а не подскажешь что можно использовать для видов не с одной категорией?

Навигация

[0] Главная страница сообщений

[#] Следующая страница