array help

[Redth]

Dim varPIEQTY()
Dim varpiei As Integer
 
For varpiei = 0 To 100
    varPIEQTY(varpiei) = 0
Next varpiei

subscript out of range

on
"varPIEQTY(varpiei) = 0"

ideas?

i haven't worked too much with arrays, but im trying to assign the array varPIEQTY(0) all the way to varPIEQTY(100) all = 0

this because i'll be filling in randoms parts in the array, and it seems if i haven't declared varPIEQTY(40) = 0 and i don't have a varPIEQTY(0), i get an errror...

[filburt1]

You never allocated the space for the array:

Dim varPIEQTY(0 To 10)
 
' or
 
Dim varPIEQTY()
ReDim varPIEQTY(0 To 10)

[Rikk]

you have to 'resize' the array before adding to it... I added a line to bump up the array size every 'varpiei' loop...

Dim varPIEQTY()
Dim varpiei As Integer

For varpiei = 0 To 100
ReDim Preserve varPIEQTY(varpiei)
varPIEQTY(varpiei) = 0
Next varpiei

[Redth]

ahh.. ic...

thanks!

[beachbum]

Hi
Definitely dont do Rikk's suggestion... follow the turtle
Redim preserve is unnecessary in this situation and will slow down the array allocation considerably.

'In forms declaration area (ie top of form)
Dim varPIEQTY() 
Dim varpiei As Integer 
 
'Within the particular event
ReDim Preserve varPIEQTY(100) 'Outside of the loop
For varpiei = 0 To 100 
      varPIEQTY(varpiei) = 0 
Next varpiei

PS If u only want to set all elements to zero (or "" for a string) u can simple use the Erase command which is much faster than a loop

Erase varPIEQTY

Regards
Stuart