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

  • Автор темы Автор темы Xalet
  • Дата начала Дата начала
X

Xalet

В общем есть фолдер в который скидываются документы по определенным критериям... Нужно в этом фолдере пробежаться по всем значениям т.е. обработать значения для всех записей из каждого столбика.

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

Код:
Set entries = fld.AllEntries
While Not(Entry Is Nothing)
Forall colval In entry.ColumnValues
value = colval				
...
End Forall
Wend

Проблемма в том, что если в столбике все значения пустые, то этот столбик пропускается.
Как это решается?

Спасибо
 
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
 
В том и дело, что мне так не подходит. Во вью по формулам обсчитываются значения столбиков и уже эти значения мне и нужны.
 
notesDocument.ColumnValues

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

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab