Silenus paparias
2010-04-30 11:56:33 UTC
Hallo.
Ein Array (listarray) soll genau so viele zeilen erhalten als die
selektierten saetze aus eine Listbox.
Dazu habe ich foldende code geschrieben:
y=1
FOR i=1 TO thisform.list1.ListCount
IF thisform.list1.Selected(i)=.t.
DIMENSION listarray(y)
listarray(y)=thisform.list1.List(i)
y=y+1
ENDIF
endfor
Die Dimension des listarrays bleibt auf "1" egal wieviele saetze ich
aufwaehle
Hat jemand eine idee warum der obige code nicht funktioniert?
Danke im voraus.
Ein Array (listarray) soll genau so viele zeilen erhalten als die
selektierten saetze aus eine Listbox.
Dazu habe ich foldende code geschrieben:
y=1
FOR i=1 TO thisform.list1.ListCount
IF thisform.list1.Selected(i)=.t.
DIMENSION listarray(y)
listarray(y)=thisform.list1.List(i)
y=y+1
ENDIF
endfor
Die Dimension des listarrays bleibt auf "1" egal wieviele saetze ich
aufwaehle
Hat jemand eine idee warum der obige code nicht funktioniert?
Danke im voraus.