Notes View перебор значений

Xalet

Well-known member
08.08.2008
410
0
#1
В общем есть фолдер в который скидываются документы по определенным критериям... Нужно в этом фолдере пробежаться по всем значениям т.е. обработать значения для всех записей из каждого столбика.

делаю примерно следующее

Код:
Set entries = fld.AllEntries
While Not(Entry Is Nothing)
Forall colval In entry.ColumnValues
value = colval				
...
End Forall
Wend
Проблемма в том, что если в столбике все значения пустые, то этот столбик пропускается.
Как это решается?

Спасибо
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
Dim db As New NotesDatabase( "Gaborone", "todo.nsf" )
Dim view As NotesView
Dim doc As NotesDocument
Set view = db.GetView( "MyFolder" )
Set doc = view.GetFirstDocument

While Not(doc Is Nothing)
... и тут работаем с документами , а не с ентрис

Set doc = view.GetNextDocument(doc)
Wend
 

Xalet

Well-known member
08.08.2008
410
0
#3
В том и дело, что мне так не подходит. Во вью по формулам обсчитываются значения столбиков и уже эти значения мне и нужны.
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#4
notesDocument.ColumnValues

И что значит столбик пропускается?
 
K

K-Fire

#8
Самое простое решение это в том столбце сделать формулу нужное поле + "###"+любое ненужное поле или формула, например @Created.
Получаете всегда непустые и не константные значения. Ну а потом уже выделить 1ю часть не проблема.