Domino 9 und frühere Versionen > Entwicklung
Tabellen in RTF-Feld per Button einfügen
Performance:
kann das nicht ganz nachvollziehen, das actdoc ist gespeichert, dein Feld protokoll existiert bereits.....
sorry, gib mir nähere Details - oder code Fragmente
cu
Kutz:
Hy,
ich habe jetzt folgenden Script-Code erstellt
Meine versteckte Ansicht heißt Vorlagen, das RTF-Feld in dieser Ansicht v_protokoll.
In der erstellten Maske heisst das Feld Protokoll
Sub Click(Source As Button)
Dim actdoc As Notesdocument
Dim view As NotesView
Dim item1 , item2
Set view = db.GetView( "Vorlagen" ) ''' in der view ist nur ein dok für diesen Zweck
Set doc = view.GetFirstDocument
Set item2 = doc.GetFirstItem( "v_protokoll" )
Set item1 = actdoc.GetFirstItem( "Protokoll" )
If ( item1.Type = RICHTEXT And item2.Type = RICHTEXT ) Then
Call item1.AddNewLine( 2 )
Call item1.AppendRTItem( item2 )
actdoc.saveoptions = "1"
Call actdoc.save (True,False)
actdoc.saveoptions = "0"
Call actdoc.close
Set docUI = ws.EditDocument(True, actdoc)
Call docUI.refresh
Call docUI.GotoBottom
End If
End Sub
Performance:
habe jetzt dein code nicht getestet aber
- ich würde in der Deklaration die items als Variant deklarieren
- Protokoll und v_protokoll sind 2 RTF Felder !
die Fehlermeldung deutet darauf hin das ein variant nicht initialisiert wurde
cu
Performance:
jetztetle - ich habe genau den Fall mit
If ( item1 Is Nothing Or item2 Is Nothing ) Then ....
ausgeklammert, falls ein item nicht initialisiert ist macht es keinen Sinn irgendwas zu appenden.
cu
savage:
Und hast Du mal überlegt mit einem RTF Editor zu arbeiten, in dem der User die Tabelle selber erweitern und anpassen kann? Oder willst Du die einzelnen Tabellenfelder separat abspeichern und auslesen können, oder würd es ausreichen den gesamten Inhalt in ein RTF zu schreiben? Dann würde z.B. sowas wie der WYSIWYG Web Editor für Notes funktionieren. Der funktioniert auch im Client. www.lotusnotesdomino.de
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln