Domino 9 und frühere Versionen > ND6: Entwicklung

Problem mit Lotus Script

<< < (2/2)

Felix Ziegler:
Sorry... lass mal das "Set" weg..


--- Code: ---         li = doc.GetItemValue("n" &Cstr(j))
         Forall x In li

--- Ende Code ---

Wilhelm Weber:
den Typ hatte ich schon von Bernhard, ist also schon weg.

Beim Debuggen sthen in li auch zwei Werte drin, wenn es dann zur For Schleife kommt, ist x =""

m3:
Wieso schreibst Du "doc.li" ?
li ist doch ein Variant und kein Attribut des Document-Objektes.
Da ist es kein Wunder, dass x dann leer ist.

Wilhelm Weber:
wollte gerade posten, dass es klappt...
das doc.li ist wirklich unsinn !!

Danke !

Felix Ziegler:
Hatte ich ja gepostet :) Nur das Set habe ich vergessen zu entfernen. Aber da hätte dir der Compiler aber schon eins auf die Finger geben müssen...


--- Zitat ---probiers mal so...

Code:

Dim j As Integer
Dim li as variant
   For j = 1 To 2
      If doc.GetItemValue("dienstart" &Cstr(j))(0) <> ""  Then
         Set li = doc.GetItemValue("n" &Cstr(j))
         Forall x In li
            Set newdoc1 =New NotesDocument (db)
            newdoc1.form = "XXX"   
            Call newdoc1.ReplaceItemValue("n"&Cstr(j), x)
            s0 = doc.GetItemValue("d" &Cstr(j))(0)
            Call newdoc1.ReplaceItemValue("d"&Cstr(j)  , s0)
            newdoc1.m = doc.m
            newdoc1.b = doc.b
            s1 = doc.GetItemValue("u" &Cstr(j))(0)
            Call newdoc1.ReplaceItemValue("u"&Cstr(j)  , s1)
                        Call newdoc1.ComputeWithForm(True, False)
            Call newdoc1.save(True,False)
         End Forall
      End If
   Next

--- Ende Zitat ---

Navigation

[0] Themen-Index

[*] Vorherige Sete