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

  • Автор темы Guest
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

Guest

#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
Суть алгорима: есть коллекция документов, нужно выкинуть из нее документы совпадающие по определенным полям.
Но после удаления документа агент вылетает. Что упустил?
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#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 уже нет в коллекции. Следовательно нельзя определить следующий документ.
 
Статус
Закрыто для дальнейших ответов.