Domino 9 und frühere Versionen > ND6: Entwicklung

LS Script Array

(1/2) > >>

Thorsten Kalweit:
Guten Morgen zusammen,

ich stehe (noch) am Anfang der Scriptprogrammierung und versuche gerade aus einer Suchansicht die Werte der ersten Spalte in ein Textfeld zu schreiben.
Hier ist erstmal mein Script


--- Code: ---Sub Click(Source As Button)
Const ABTFIL$ = "(orderReportKauf2)"

Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim thisdoc As NotesDocument
Dim listAbtFil List As String
Dim zaehler As Integer

Set thisdoc = ws.CurrentDocument.Document
Set db = s.CurrentDatabase
Set view = db.getView(ABTFIL)
Set doc = view.GetFirstDocument

'Zunächst wird geprüft, wieviele Abteilungen und Filialen es gibt
Do While Not(doc Is Nothing)
zaehler = zaehler +1
Set doc = view.GetNextDocument(doc)
Loop
'Erstellen eines 1-Dimensionalen Arrays der Größe zaehler
Redim arrAbtFil (0 To zaehler) As String
'Zurücksetzen des doc-Objektes aus die Startposition
Set doc = view.GetFirstDocument
'Zurücksetzen des Zählers auf 0
zaehler = 0
'Einfügen der Werte in das Array
Do While Not(doc Is Nothing)
arrAbtFil(zaehler) = doc.ColumnValues(0)
Set doc = view.GetNextDocument(doc)
zaehler = zaehler +1
Loop

thisdoc.abtFil = arrAbtFil

End Sub


--- Ende Code ---

Die Werte in der Ansicht sehen wie folgt aus:
001
001
001
101
101
150
150
...

Soweit so gut, aber mittendrin bricht Notes mit der Fehlermeldung "Type Mismatch" ab. Leider gibt der Debugger auch keine genaueren Informationen.  :-:

DerAndre:
Bau ein ordentliches Fehlerhandling ein. Das hilft schonmal.

Axel:
Beim schnellen überfliegen ist mir die Redim - Zeile aufgefallen.

Das muss so aussehen:
Redim arrAbtFil (zaehler) As String

Axel

Thorsten Kalweit:
Hm, das scheint es auch nicht gewesen zu sein. Der Fehler taucht weiterhin auf.

DAU-in:
Hat das Dokument, bei dem der Debugger abbricht, denn einen Wert in der Spalte stehen?

edith: du startest beim Durchzählen der Dokumente bei 1, beim array startest du bei 0.

Müsste es nicht
Redim arrAbtFil (zaehler - 1) As String heißen?

Navigation

[0] Themen-Index

[#] Nächste Seite