How can I add data to an array?
I tried:
AI = AI + 1
MyArray(AI) = MyData
BTW: I had a loop (that's why the ai).
Printable View
How can I add data to an array?
I tried:
AI = AI + 1
MyArray(AI) = MyData
BTW: I had a loop (that's why the ai).
'add infor to an array
Dim myArr()
Dim i as integer
For i = 1 to 10
redim preserve myArr(i)
myarr(i) = i
next i
for i = lbound(myArr) to uBound(myarrr)
if i = 0 then
myString = myArr(i)
else
myString = myString & ":" & myArr(i)
endif
next i
msgbox mystring
'
'or add to item in array
Dim myArr(2) as integer
myarr(0) = 1
myarr(1) = 2
myarr(2) = 3
dim i
for i = lbound(myarr) to ubound(myarr)
if i = 2 then
myarr(i) = (myArr(i) + 23)
endif
next i
msgbox myarr(2) 'should be 26