Domino 9 und frühere Versionen > ND6: Entwicklung

RichTextItem: Method is not available Fehler ???

(1/3) > >>

jmanuel:
Hallo,

ich versuche in einem RichText ein anderes RichText einzufügen. Das ganze Funktioniert solange ich ohne Schnickschnack ein RT an das andere anhänge. Erzeuge ich jedoch eine Tabelle (NotesRichTextTable) und versuche nun das RichTextItem dort einzufügen, dann kommt die Fehlermeldung: Method is not available.

...
Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)   
Call rt.BeginInsert(rtnav)
Call rt.AppendText( " " )
If doc.HasItem("Body") Then
   Set importRT = doc.GetFirstItem("Body")
End If
If dxlrt.Type = RICHTEXT Then
        Call rt.AppendRTItem( importRT )             <= hier KAPUTT: Füge ich Text ein, dann kein Problem
end if
...

Kann mit bitte jemand helfen ?
Gruss,
Manuel

Axel:
Meines Wissens kannst du in eine Tabelle nur Text einfügen und kein weiteres Feld.


Axel

ata:
... im Objekt NotesRichTextTable gibt es keine Methode .AppendRTItem()...
Eben wie es die Fehlermeldung korrekt benennt...

Toni

jmanuel:
Hi,

das rt in dem Beispiel ist das NotesRichTextItem.

hier nochmal das ganze Beispiel. (habe nicht alle Deklarationen hier eingebracht)

   Dim rt As NotesRichTextItem         
   Dim rtImport As NotesRichTextItem         
   Dim doc As NotesDocument      
          
   Dim rtnav As NotesRichTextNavigator
   Dim rtt As NotesRichTextTable
   
   Set rtnav = rt.CreateNavigator()
   Set rtt = rtnav.GetFirstElement(RTELEM_TYPE_TABLE)
   Call rtnav.GetFirstElement(RTELEM_TYPE_TABLECELL)
   Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
   
   Call rt.BeginInsert(rtnav)
   
   Set doc = db.GetDocumentByUNID("DA3479C0D72E5DB6C12570F900345B1E")
   If doc.HasItem("Body") Then
      Set rtimport = doc.GetFirstItem("Body")
   End If
   If rtimport.Type = RICHTEXT Then
      'Call rt.AppendRTItem( rtimport )           'geht nicht
      Call rt.AppendText("Hier bin ich")           'geht
   End If
   Call rt.EndInsert
   
   Call doc.Save(True,False)
   

Das beispiel liefert in der ersten Zelle den Text  "hier bin ich".
Importiere ich jedoch den Inhalt des rtimport RichtText-Feldes kommt die Nachricht:
Method is not available

es wäre super wenn jemand die Ursache kennt.
Gruss,
Manuel,

ata:
... erweitere die Validierung des Richtextfeldes mal um die Validierung des rt-Objektes mit:


--- Code: ---If rtimport.Type = 1 And rt.Type = 1 Then
--- Ende Code ---

Eventuell ist das Richtext-Feld nur ein einfaches Textfeld - könnte sein...

Toni

Navigation

[0] Themen-Index

[#] Nächste Seite