Hallo,
habe ein Frage zum Thema Richtextfeld. Wenn ich ein Richtextfeld in ein anderes Richtextfeld übernehme, klappt das soweit ganz gut mit dem "AppendRTItem". Allerdings ist der neueste Eintrag dann immer unten. (append-klar).
Nun möchte ich aber den neuesten Eintrag im ganz oben im Ziel-RTFeld haben
?
Hat mir jemand einen Tipp?
Viele Grüße
Anton
Sub Click(Source As Button)
Dim w As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim docA As NotesDocument
Dim rtitemA As Variant
Dim rtitemB As Variant
Dim rtnav As NotesRichTextNavigator
Set uidoc = w.CurrentDocument
Set docA = uidoc.Document
Call uidoc.Save
Set rtitemA = docA.GetFirstItem( "Serviceauftrag" )
Set rtitemB = docA.GetFirstItem( "Historie" )
Call rtitemB.AddNewLine(1)
Call rtitemB.AppendText( "-> aktualisiert am " + Now + ": ======" )
Call rtitemB.AddNewLine(1)
Call rtitemB.AppendRTItem( rtitemA )
'''''''''
Set rtItem = docA.ReplaceItemValue("Serviceauftrag", "")
docA.SaveOptions = "0"
Call docA.Save(False, True)
'Call uidoc.Close
End Sub