Autor Thema: Zahlenliste eines Feldes erweitern  (Gelesen 1367 mal)

Offline Detti

  • Frischling
  • *
  • Beiträge: 2
Zahlenliste eines Feldes erweitern
« 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. :-: :-:

Offline DAU-in

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.129
  • Geschlecht: Weiblich
  • - unterwegs -
Re: Zahlenliste eines Feldes erweitern
« Antwort #1 am: 24.07.07 - 14:28:02 »
wie sieht dein Script denn aus?

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

und woran ist es denn gescheitert?
mühsam ernährt sich das Eichhörnchen

aktuelle Tätigkeit: Feldschubse

Glombi

  • Gast
Re: Zahlenliste eines Feldes erweitern
« Antwort #2 am: 24.07.07 - 14:38:13 »
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

Offline jBubbleBoy

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.290
  • Geschlecht: Männlich
Re: Zahlenliste eines Feldes erweitern
« Antwort #3 am: 24.07.07 - 15:01:12 »
hallo,
nimm ein Array, z.B. vom Typ Integer, dann via Script füllen und mit doc.replaceItemVallue Werte schreiben.

bubble
Gruss Erik :: Freelancer :: KI-Dev, Notes, Java, Web, VBA und DomNav 2.5 / NSE 0.16 / OLI 2.0

--
Nur ein toter Bug, ist ein guter Bug!

Offline Detti

  • Frischling
  • *
  • Beiträge: 2
Re: Zahlenliste eines Feldes erweitern
« Antwort #4 am: 26.07.07 - 09:40:23 »
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
« Letzte Änderung: 26.07.07 - 09:57:25 von Detti »

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz