Domino 9 und frühere Versionen > Entwicklung

Problem mit Array

(1/2) > >>

Charly77:
Moin Moin,

ich steh heute völlig auf dem Schlauch ...

Ich lese Werte in ein dynamisches Array ein, und möchte diese dann per Print #1 in eine Datei schreiben. Kann aber auf die Werte im Array nicht zugreifen ???


--- Code: --- Dim se As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument

Dim wert() As Long

Set db = se.CurrentDatabase
Set view = db.GetView( "Ansicht" )
Set doc = view.GetFirstDocument

alle = view.allentries.count

Redim wert(alle)

i = 0
For a=1 To alle
wert(i) = doc.GetItemValue("wert")

Set doc = view.GetNextDocument(doc)
i = i+1
Next

Open "d:\test.dat" For Output Access Write As #1
                i = 0
                For a=1 To alle
'Print #1, wert(i)      [color=Red]hier kommt der Fehler[/color]
                Next
Close #1

--- Ende Code ---

Kann mich jemand in die richtige Richtung stupsen?  ::)

diali:
Du benutzt a als Zähler in der For-Schleife und willst dann an der Stelle i auslesen.

Entweder benutzt Du in der For-Schleife wieder i oder in der Print-Anweisung a.

Charly77:
Sorry,

lag an meinen Test-versuchen  ;D

aber dort liegt nicht der Fehler den ich suche ...
ich bekomme in der Zeile:


--- Code: ---Print #1, wert(i)
--- Ende Code ---

ein "Type mismatch"

Glombi:
Statt

wert(i) = doc.GetItemValue("wert")

muss es

wert(i) = doc.GetItemValue("wert")(0)

heissen.

Andreas

Charly77:
Danke Glombi,

nun klappt es  ;D

Woran liegt das  ???
Hab noch nie mit dynamischen Array`s gearbeitet?

Navigation

[0] Themen-Index

[#] Nächste Seite