Domino 9 und frühere Versionen > Entwicklung

Kopie des Inhalts eines Richtext Feldes wird nicht angezeigt

<< < (2/2)

Driri:
Stimmt, danke für den Hinweis Bernhard  :)

koehlerbv:
Gern geschehen  ;)

webchild:
So habe ich das jetzt mit dem AppendRTItem gelöst:

Sub Click(Source As Button)
   Dim w As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim docA As NotesDocument
   Dim docB As NotesDocument
   Dim uidoc As NotesUIDocument
   Dim view As NotesView
   Dim rtitemA As Variant
   Dim rtitemB As Variant
   Dim item As NotesItem
   
   Set db = session.CurrentDatabase   
   Set view = db.GetView( "KursInhaltSuchen" )
   Set uidoc = w.CurrentDocument
   Set docA = uidoc.Document
   Call uidoc.Save
   Set docB = view.GetDocumentByKey(docA.Kursname)
   
   Set rtitemA = docA.GetFirstItem( "Kursinhalt" )
   Set rtitemB = docB.GetFirstItem( "Kursinhalt" )
   If ( rtitemA.Type = RICHTEXT And _
   rtitemB.Type = RICHTEXT ) Then
      Call rtitemA.AppendRTItem( rtitemB )
      docA.SaveOptions = "0"
      Call docA.Save(False, True)
   End If
   
End Sub

Mein Fehler war, ich habe die Hilfe Anleitung nicht genau genug gelesen, im 2. Beispiel zu diesem Befehl war ein eindeutiger Hinweis und eine Anleitung dazu!

Grüße, Krista

Navigation

[0] Themen-Index

[*] Vorherige Sete