Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Detti am 24.07.07 - 14:13:38
-
Ich möchte mit Script an die Zahlenliste eines Feldes weitere Werte anhängen, habe es leider nicht hinbekommen. :-: :-:
-
wie sieht dein Script denn aus?
(und nein, ich meine nicht 'schwarze Schrift auf weissem Grund')
und woran ist es denn gescheitert?
-
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
-
hallo,
nimm ein Array, z.B. vom Typ Integer, dann via Script füllen und mit doc.replaceItemVallue Werte schreiben.
bubble
-
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