2012-01-24 4 views
1

私はfunction..andのこの作品は、私は毎回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方法について読んしかし、それはリッチテキストITEに新しい行を挿入私はどのように文字列のデータ型、テキストフィールドでそれについて行くことができますか?

答えて

3

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

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

+0

ありがとう....その作業... !!! – Bebo

+0

または、NotesItem.appendToTextList() – umeli

関連する問題