разделение каждого значения как новой строки в поле с помощью скрипта лотоса

Question

у меня есть эта функция ... и я хочу добавлять новую строку в mVal каждый раз перед добавлением mWrkFlwDoc.workFlow (0)

Функция workFlowHistory () workFlowHistory = False

Dim mWrkFlwVw As NotesView
Dim mWrkFlwColl As NotesDocumentCollection
Dim mWrkFlwDoc As NotesDocument
Dim mVal As String

Set mWrkFlwVw = gDB.GetView("lkpWorkFlow")
Set mWrkFlwColl = mWrkFlwVw.GetAllDocumentsByKey(gDoc.empName(0),True)
Set mWrkFlwDoc = mWrkFlwColl.GetFirstDocument

mVal = ""

Do While Not mWrkFlwDoc Is Nothing
    If mWrkFlwDoc.documentID(0) = gDoc.documentID(0) Then
        ***mVal =mVal+ mWrkFlwDoc.workFlow(0)*** ' add new line before adding mWrkFlwDoc.workFlow(0)

    End If
    Set mWrkFlwDoc = mWrkFlwColl.GetNextDocument(mWrkFlwDoc)
Loop
gDoc.workFlowHistory = mVal
gDoc.save True,True
workFlowHistory=True

Функция завершения

Я читал о методе AddNewLine, но он вставляет новые строки в элемент форматированного текста .... как я могу использовать строковый тип данных, текстовое поле?

Answer 1

Здесь можно использовать многозначное поле. Для этого вам нужно создать массив и поместить каждую новую запись в массив внутри цикла. Поле (поля) в форме можно настроить так, чтобы каждое значение отображалось в новой строке.

Если вы не хотите использовать поле с несколькими значениями, просто добавьте Chr (13) для каждой новой строки.