выполнить формулу

Тема в разделе "Lotus - Программирование", создана пользователем aks, 21 авг 2006.

Статус темы:
Закрыта.
  1. aks

    aks Гость

    Здравствуйте, господа! Возможно ли выполнить @-формулу в скрипте? Искал поиском на форуме - ничего не нашёл, хотя помню, что обсуждалось. Подскажите пожалуйста.

    Спасибо!
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Evaluate function and statement


    Код (Text):
    ' For each document in a Notes database, use a Notes macro to
    ' compute the average for a list of numeric entries in the
    ' NumberList field. Evaluate returns a Variant, and Notes
    ' macros return an array. In this case, the array contains only
    ' 1 element (element 0). For more info, see the Notes
    ' documentation.

    Sub Click(Source As Button)
    ' The macro text must be known at compile time.
    Const NotesMacro$ = "@Sum(NumberList) / @Elements(NumberList)"
    Dim result As Variant, j As Integer
    Dim db As New NotesDatabase("", "MYSALES.NSF")
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument
    Set dc = db.AllDocuments
    For j% = 1 To dc.Count
    Set doc = dc.GetNthDocument(j%)
    result = Evaluate(NotesMacro$, doc)
    MessageBox("Average is " & result(0))
    Next
    End Sub
     
Загрузка...
Статус темы:
Закрыта.

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