Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Sepp Herberger am 04.07.03 - 07:19:31

Titel: Subscript out of range
Beitrag von: Sepp Herberger am 04.07.03 - 07:19:31

Hallo zusammen

ich habe einen Button der mir die Werte von Einträgen in einem Feld zusammenrechnen soll.
Das Problem die Werte stehen nicht direkt in dem Feld sondern in extra Dokumenten.
mit folgendem Script habe versuche ich die einzelnen Werte auszulesen:

While doc.Software(i) <> ""
      Set searchdoc = v.GetDocumentByKey(doc.Software(i))
      test = searchdoc.Erfassung_Software_Preis(0)
      If test = "" Then
         test = 0
      End If
      wert = wert + Cdbl(test)
      i = i + 1
   Wend

das funktioniert ja alles recht schön allerdings bekomme ich beim letzten durchlauf der Schleife ein "Subscript out of Range"  ???.

kann mir jemand sagen warum??
gehe ich die sache vielleicht total verkehrt an??.

Gruss

Sepp

Titel: Re:Subscript out of range
Beitrag von: animate am 04.07.03 - 08:04:30

Tip: du kannst die Anzahl der notwendigen Durchläufe schon vor eintritt in die Schleife ermitteln. Nutze die Funktionen LBound und Ubound

Titel: Re:Subscript out of range
Beitrag von: Axel am 04.07.03 - 08:24:08

Hi,

ich würde das mit eine For/Next - Schleife machen. Damit bist du auf der sicheren Seite.


For i = 0 to UBound(doc.Software)
      Set searchdoc = v.GetDocumentByKey(doc.Software(i))
      test = searchdoc.Erfassung_Software_Preis(0)
      If test = "" Then
         test = 0
      End If
      wert = wert + Cdbl(test)
Next

Axel

Titel: Re:Subscript out of range
Beitrag von: Sepp Herberger am 04.07.03 - 09:47:35

Hallo

hat super funktioniert.

Dankeschön.

Titel: Re:Subscript out of range
Beitrag von: Axel am 04.07.03 - 10:31:22

Hi,

setzt du das Posting bitte noch auf "Erledigt".

Danke.


Axel

Titel: Re:Subscript out of range
Beitrag von: Sepp Herberger am 04.07.03 - 10:41:19

OK