3

私はこの関数を持っています。mWrkFlwDoc.workFlow（0）を追加する前に、毎回mValに新しい行を追加したいと思います。

関数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メソッドについて読みましたが、リッチテキストアイテムに新しい行が挿入されます....文字列データ型、テキストフィールドでどのように処理できますか？

4

1 に答える 1

6

ここでは、複数値フィールドを使用できます。これを行うには、配列を作成し、ループ内の配列に新しい各エントリを配置する必要があります。フォームのフィールドは、新しい行に各値を表示するように設定できます。

複数値フィールドを使用したくない場合は、新しい行ごとにChr（13）を追加するだけです。

于 2012-01-24T08:12:56.583 に答える