Удаление документа из коллекции

Тема в разделе "Lotus - Программирование", создана пользователем -, 4 июл 2007.

Статус темы:
Закрыта.
  1. Гость

    i = Int(Coll.Count)
    j=1
    sled:
    If j<i Then
    Set doc = Coll.GetNthDocument(j)
    x = Cstr(doc.E(0))
    y= Cstr(doc.N(0))
    ptipe = Cstr(doc.PointType(0))
    Set doc = Coll.GetNextDocument(doc)
    While Not (doc Is Nothing)

    ' Print i, " ",j,";"
    If x = Cstr(doc.E(0)) Then
    ' Print "b"
    If y= Cstr(doc.N(0)) Then
    If ptipe = Cstr(doc.PointType(0)) Then
    If ptipe = "fast" Then
    Call Coll.DeleteDocument(doc)
    i=i-1
    ' Print "a"
    ' Goto sled
    End If
    End If
    End If
    End If
    Set doc = Coll.GetNextDocument(doc)
    Wend
    j=j+1
    Goto sled
    End If
    Суть алгорима: есть коллекция документов, нужно выкинуть из нее документы совпадающие по определенным полям.
    Но после удаления документа агент вылетает. Что упустил?
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    <!--QuoteBegin-Влад99+4:07:2007, 17:04 -->
    <span class="vbquote">(Влад99 @ 4:07:2007, 17:04 )</span><!--QuoteEBegin-->Суть алгорима: есть коллекция документов, нужно выкинуть из нее документы совпадающие по определенным полям.
    Но после удаления документа агент вылетает. Что упустил?
    [snapback]71352" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    Не работает этот метод Coll.GetNextDocument(doc), т.к. документа-параметра doc уже нет в коллекции. Следовательно нельзя определить следующий документ.
     
  3. Гость

    Пасибо, уже дошло =)
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей