Hier ein kleiner Ausschnitt des Codes:
Code: Alles auswählen
dim id_eintrag(1000)
dim id_kind(1000)
dim eintrag(1000)
dim datum(1000)
dim details(1000,1000)
Do while oErgSet.Next()
'On Error Resume Next
id_eintrag(oErgSet.row-1)=oErgSet.getInt(col_id_eintrag)
id_kind(oErgSet.row-1)=oErgSet.getInt(col_kind)
eintrag(oErgSet.row-1)=oErgSet.getString(col_eintrag)
datum(oErgSet.row-1)=oErgSet.getString(col_datum)
myCounter=oErgSet.row-1
msgbox myCounter
msgbox eintrag(myCounter)
loop
' Schleife zu Debuggingzwecken:
for x=0 to 3
msgbox " Beim x="+x+" ist der Eintrag:"+eintrag(x)
next x
end if
Habe es unter Mac OS Mountain Lion und unter Win7 mit LO 3.5 getestet. Jemand anderer testete ein geradezu identisches Skript mit LO 3.3 und es funktioniert, s. LO-Forum: http://www.libreoffice-forum.de/viewtop ... 390#p18390. Wie man in der angehängten Datei jedoch erkennen kann, ist bei mir irgendwo ein Fehler drin.
Gruß
Arek