Zahlenliste eines Feldes erweitern

[Detti]

Ich möchte mit Script an die Zahlenliste eines Feldes weitere Werte anhängen, habe es leider nicht hinbekommen.

[DAU-in]

wie sieht dein Script denn aus?

(und nein, ich meine nicht 'schwarze Schrift auf weissem Grund')

und woran ist es denn gescheitert?

[Glombi]

Gut, mit AppendToTextList kann man ja nur Strings und keine Zahlen anhängen.

Hier eine Möglichkeit:

dim ret_eval as variant

ret_eval = Evaluate( |Field Zahlenliste := Zahlenliste : NeueZahlenliste;@True|, doc )


doc ist das Backend-Dokument.
Das Feld mit den Zahlen heisst "Zahlenliste". Die neuen Zahlen stehen im  Feld "NeueZahlenliste".

Andreas

[jBubbleBoy]

hallo,
nimm ein Array, z.B. vom Typ Integer, dann via Script füllen und mit doc.replaceItemVallue Werte schreiben.

bubble

[Detti]

Erstmal vielen Dank füt die Hilfe :

Sub Initialize
   Dim session As Notessession
   Dim db As NotesDatabase
   Set Session = New Notessession
   Set db =Session.CurrentDatabase
   
   Dim View As NotesView
   Set View=db.getview("Zahl")
   
   Dim DOCU As NotesDocument
   Dim Array() As Integer
   Set DOCU = VIEW.GetFirstDocument
   
   Do Until DOCU Is Nothing   
      
      UB = Ubound(Docu.zahl)
      For i=0  To UB
         Redim Preserve Array(i)
         Array(i) = Docu.zahl(i)
      Next
      Redim Preserve Array(i)
      Array(i) = 10
      DOCU.Zahl = Array
      Call Docu.Save(True,True)
      Set DOCU = VIEW.GetNextDocument(DOCU)   
   Loop      
   
End Sub