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

[Xalet]

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

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

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

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

Спасибо

 

[morpheus]

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]

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

 

[Medevic]

notesDocument.ColumnValues

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

 

[Xalet]

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

Скажем есть столбик в котором просто номер записи... стандартная Simple function # in view. Значение для этого столбика пропускается.

 

[Medevic]

Может потому что:

A column value is not returned if it is determined by:
A formula containing a UI-only function such as @IsExpandable or @DocNumber.
A constant.

?

 

[Xalet]

Может потому что:

Цитата
A column value is not returned if it is determined by:
A formula containing a UI-only function such as @IsExpandable or @DocNumber.
A constant.

?

Вариант. Значит придется искать другие решения.

Спасибо.

 

[K-Fire]

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