蓮花筆記：如何按降序對多值字段進行排序

我是Lotus筆記中的初學者。我有一個關鍵字查找表單和一個編輯歷史字段。每個更改都記錄在編輯歷史記錄字段中。如下圖所示，顯示的編輯歷史：蓮花筆記：如何按降序對多值字段進行排序

日期：2016年2月10日 USER：（名） FROM：關鍵字：關鍵字值 TO：關鍵字：關鍵字值

日期：2016年5月29日 USER：（名） FROM：關鍵字：關鍵字值 TO：關鍵字：關鍵字值

的編輯歷史追加的是降低之前的編輯，以便按升序顯示。如何按降序對編輯歷史進行排序？或者是否可以在先前的編輯歷史記錄上插入新的編輯歷史記錄以使其按降序排列？如果是的話，我該怎麼做？預先感謝您的幫助。 :)

在我EditHistory多值字段，我有這樣的代碼：

@If(@IsDocBeingLoaded & @IsNewDoc; @Return(""); @True); 
@If([email protected]; @Return(@Sort(EditHistory;[Descending])); 
@Trim(@Subset(@Sort(EditHistory;[Descending]) ; -100)))

在聲明：

Dim FieldValues() As String

在我的表單中我有這些：

Sub EditHistorylist 
    Dim session As New NotesSession 
    Dim workspace As New NotesUIWorkspace 
    Dim source As NotesUIDocument 
    Dim fieldnum As Integer 
    Dim entry As String 
    Dim histo As Variant 

    Set source = workspace.CurrentDocument 
    For fieldnum = 0 To Ubound(FieldValues) 
    If FieldValues(fieldnum,1) <>source.fieldgettext(FieldValues(fieldnum,0)) Then 
     entry = Chr(10) + "DATE:" + Date$+Chr(10)+ "USER:" + session.CommonUserName +_ 
     Chr(10)+ "FROM:" + FieldValues(fieldnum,0) + "::" + FieldValues(fieldnum,1)+_ 
     Chr(10)+ "TO:" + FieldValues(fieldnum,0) + "::" + source.fieldgettext(FieldValues(fieldnum,0)) +_ 
     Chr(10) + Chr(95) + Chr(95) + Chr(95) 
     Call source.FieldAppendText("EditHistory",Chr(10)+entry) 
    End If 
    Next 
End Sub

文檔事件：

Sub Querysave(Source As Notesuidocument, Continue As Variant) 
    If Not Source.IsNewDoc Then 
    Call EditHistorylist 
    End If 
End Sub 

Sub Postmodechange(Source As Notesuidocument) 
    'build array of current values 
    Dim session As New NotesSession 
    Dim db As NotesDatabase 
    Dim doc As NotesDocument 
    Dim form As NotesForm 
    Dim fieldnum As Integer 
    Dim counter As Integer 

    Set db = session.CurrentDatabase 
    Set doc = Source.Document 
    Set form = db.GetForm(doc.Form(0)) 
    fieldnum = Ubound(form.fields) 
    Redim FieldValues(fieldnum,1) 
    counter = 0 
    Forall field In form.fields 
    FieldValues(counter,0) = field 
    FieldValues(counter,1) = source.fieldgettext(field) 
    counter = counter + 1 
    End Forall 
End Sub

來源

2016-09-30 Faith Camille

告訴我們的代碼，您使用寫的歷史，那麼我們就可以說明如何修改方向...沒有代碼，沒有幫助！ –

在我的EditHistory多值字段中，我有這個代碼 @If（@IsDocBeingLoaded＆@IsNewDoc; @Return（「」）; @True）; （@Sort（EditHistory; [Descending]））; @Trim（@Subset（@Sort（EditHistory; [Descending]）; -100））） –

聲明中： Dim FieldValues（）作爲字符串在我的表單中我有這些：子EditHistorylist \t昏暗的會議作爲新NotesSession \t昏暗的工作區作爲新NotesUIWorkspace \t昏暗源作爲NotesUIDocument \t昏暗fieldnum作爲整數 \t昏暗的條目作爲字符串 \t Dim histo As Variant \t \t集源= workspace.CurrentDocument \t \t 對於fieldnum = 0至UBOUND（FieldValues） –

首先，歷史記錄中的每一行都是一個字符串，即使對這些行進行排序，結果也會按字典順序排序，這意味着2016年2月10日仍將在05/29/2016之前，這將在05/29/2015之前。

排序此列表後它完成似乎並不走的路。

是否可以在先前的編輯歷史記錄上插入新的編輯歷史記錄以使其降序？

當然是的，它是

我該怎麼辦呢？

這一切都取決於如何將新行添加到現場。使用@Formula它會相當簡單，可能只是歷史記錄：= newLine：歷史記錄

在LotusScript中，您可以使用history = document.getItemValue("history")獲取現有行，這將生成一個數組。然後，您可以使用一些陣列福預先設置新的生產線，沿着

redim preserve history(ubound(history)+1) 
for i = ubound(history) down to 1 
    history(i) = history(i-1) 
next 
history(0) = newLine 
call document.replaceItemValue("history", history)

行現在的東西，處理動態數組中的LotusScript可能會非常棘手，所以有耐心武裝自己，併爲您內置多米諾幫助設計師。

來源

2016-09-30 10:21:15

我得到錯誤意外下降;預期：操作員; TO在線對於i = Ubound（FieldValues）降至1 我該如何解決此問題？謝謝。 –

[RTFM]（https://www.ibm.com/support/knowledgecenter/SSVRGU_9.0.1/com.ibm.designer.domino.main.doc/LSAZ_CHAPTER_7_STATEMENTS_BUILTIN_FUNCTIONS_SUBS_DATA_TYPES_AND_DIRECTIVES.html）的確切語法;-) –

好吧，感謝您:) –

試試這個：

Dim newRow(0) As String 
newRow(0) = "new history line" 
If document.History(0) = "" Then 
    document.History=newRow 
Else 
    document.History = Arrayappend(newRow, document.history) 
End If

來源

2017-02-13 05:50:18

蓮花筆記：如何按降序對多值字段進行排序

回答

相關問題