通过莲花脚本将每个值分隔为字段中的换行符答案

【问题标题】：separating each value as newline in an field by lotus script通过莲花脚本将每个值分隔为字段中的换行符
【发布时间】：2012-01-24 06:13:56
【问题描述】：

我有这个功能..我想在每次添加之前添加一个新行到 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 方法的信息，但它在富文本项中插入新行....如何使用字符串数据类型、文本字段来处理它？

【问题讨论】：

标签： lotusscript

【解决方案1】：

这里可以使用多值字段。为此，您需要创建一个数组并将每个新条目放入数组中的循环内。可以将表单上的字段设置为在新行上显示每个值。

如果您不想使用多值字段，只需为每个新行添加一个 Chr(13)。

【讨论】：

或者只是 NotesItem.appendToTextList()