Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: birdy am 13.03.03 - 14:33:39
-
Hallo,
verzweifle gleich an diesem blöden Richtext-Feld.
Rufe über einen Button eine Ansicht auf (Picklist). In dieser Ansicht stehen Dokumente mit zwei Feldern. Das eine Feld ist ein ganz normales Textfeld, das andere eine Dialogliste.
Der User wählt ein oder mehrere Dokumente aus der Ansicht aus und dann sollen die Inhalte dieser beiden Felder in ein Richtext-Feld in meinem UI-doc übertragen werden.
Mein Skript sieht bisher folgendermaßen aus:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim currdoc As NotesDocument
Dim doc As NotesDocument
Dim col As NotesDocumentCollection
Set uidoc = ws.CurrentDocument
Set currdoc = uidoc.Document
Set rtitem = currdoc.GetFirstItem("Test")
If rtitem.Type <> RICHTEXT Then
Messagebox "Not rich text"
Exit Sub
End If
Set col = ws.PickListCollection(1, True, Servername, DatabaseFileName, "PicklistName", "PicklistTitle", "Bitte auswählen:")
Set doc = col.GetFirstDocument
While Not (doc Is Nothing)
Call rtitem.AppendText(doc.Textfeld(0))
Call doc.Save(True, False)
Set doc = col.GetNextDocument (doc)
Wend
End Sub
Kann mir bitte jemand sagen, ob an dem Skript was falsch ist oder ob ich irgendwas vergessen habe?
Wenn ich das ganze debugge, funktioniert es soweit, dass der Inhalt des Textfeldes notiert wird. Nur leider wird der Text nicht in meinem RichText sichtbar.
Bin für jede Hilfe superdankbar!
-
Hi,
zum einen vermisse ich die DIM - Anweisung für rtitem
Dim rtitem As NotesRichtextItem
Das ist aber nicht das Problem.
RTF-Felder haben die Eigenheit, dass deren Inhalt, wenn per Script eingefügt, erst nach dem Speichern und erneutem Öffnen angeziegt wird. Ich hab bisher auch noch keinen Weg drumrum gefunden, der sauber funktioniert.
Axel