Ein StringArray in einer Maske anzeigen

[Don Pasquale]

Hallo Leute,

in einer Maske soll ein Benutzer einen Kommentar hineinschreiben.
Wird in demselben Dokument ein weiterer Kommentar geschrieben,
so soll der alte Kommentar, Kommentarnummer mitsamt Datum gespeichert werden.
Ich benötige also in einer Maske ein Feld in dem ich ein
Array speichern kann und jedesmal wenn die Maske aufgerufen und das Feld gefüllt wird, sollen ein paar Informationen dem Array hinzugefügt werden.

If docDialog.sn_Bemerkungen(0) <> "" Then
   ArrayAppend(Notizen)
   Notiz ( i ,1) = HauptDoc.Dok_ID(0)
   Notiz ( i, 2 ) = USERID
   Notiz ( i, 3) = Datum
   Notiz ( i, 4) = doc.dialog.sn_bemerkung(0)
End If


Hat da jemand schon mal etwas ähnliches gemacht ?

Sachdienliche Hinweise an

Don Pasquale

[ata]

... deine Syntax des Arrayappend ist nicht ganz korrekt...

doc.FeldName = Arrayappend(doc.FeldName , ArrayOderString)

... in der Kurzversion...

hier eine Ausarbeitung

If doc.FeldName(0) = "" Then
    doc.FeldName = sString
Else
    doc.FeldName = Arrayappend(doc.Feldname , sString)
End If

... eine Variable sString wird an ein Array angehängt, in diesem Fall einem Feld hinzugefügt...

ata

[Performance]

yep - habe soetwas schon gemacht, allerdings mit einem history Feld. Dazu habe ich mir einer 2. Maske erstellt wo der Benutzer Eingabe machen kann. Im QueryClose der Maske frage ich ob ein neuer Eintrag gemacht werden soll.

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
   
   Dim ws As New NotesUIWorkspace
   
   If Not Source.IsNewDoc Then
      If Source.editmode = True Then
           REM History Eintrag - nur im Edit Mode   
         JaNein =
         
         If (Messagebox("Do you want to update the History Entry ?", 4 + 32, "update history....") = 6) Then
            If  (ws.DialogBox( "DialogHist", True, True, False, True, False, False, "New History Entry", , False , False ))  = False  Then
 )
               Exit Sub
            Else
 )
               Call Source.FieldAppendText( "dochistory",  Chr(10)+Chr(13) + Cstr(Today) + "<" +Source.FieldGetText( "histType" )  + "> " +Source.FieldGetText( "histentry" ) )
               Call source.save
            End If
         End If
      End If
   End If
   
End Sub

- histentry wird in dochistory angehängt


cu