Deleting Last values in an array

[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!

 

[Bob Phillips]

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

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

 

[Bob Phillips]

That should have been

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

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

 

[gti_jobert]

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.