Deleting Last values in an array

  • Thread starter Thread starter gti_jobert
  • Start date Start date
G

gti_jobert

Hi all,

I populate an array with data like so;


Code:
--------------------


Private Sub cmdMCDT_Click()

Dim i%

Static Counter As Long
Counter = Counter + 1

ReDim Preserve ary(1 To 3, 1 To 3, 1 To Counter)

For i = 1 To 3
ary(1, i, Counter) = MachineNumber
ary(2, i, Counter) = Controls("lblDTCode" & i).Caption
ary(3, i, Counter) = Controls("lblDTDuration" & i).Caption
Next i

End Sub

--------------------


The problem is that I want to be able to delete the last entry (or how
ever many entries) from the array and then overwrite the array with a
new set of data.

Anyone know how I would go about doing this? All help appreciated!
 
ary(UBound(ary,1),Counter) = new_value

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)
 
That should have been

ary(UBound(ary, 1), 1, Counter) = 1

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)
 
Thanks again for your help bob, always appreciated!! Think I've got it
working now, got some modding of code to before it fully functions.
 
Back
Top