Printable View
Hello,
I've been searching around but can't seem to find this one.
I've got MultiDimensional Array and want to check the Ubound of each item lets say.
So:
UBound(Basket, 2) returns the apples but only for Basket0Code:Basket0.Apple0
Basket0.Apple1
Basket1.Apple0
Basket1.Apple1
Basket1.Apple2
Basket2.Apple0
Basket2.Apple1
How do you check how many apples Basket 2 has?
Thanks
Basket2.Apple2
Basket2.Apple3
Basket2.Apple4
read this thread, may be useful.
thanks but no, that still only gives the Ubound of each Dimension!
i.e
Ubound of Basket
Ubound of Apples
Your array is really an array of UDTs, correct? Can you show us exactly what the Basketx are? That could be useful
I don't see any evidence of an Array in the original code. I'd expect to see some brackets somewhere identifying the element(s) being assigned / read.
What value do you get using UBound(Basket, 2)?Quote:
Originally Posted by some1uk03
What value would you hope to get for Basket1?
What value would you hope to get for Basket2?
Spoo
yes the array is a UDT. so here in more detail:
Code:Private Type myArray
fName As String
Apple As single
Banana As Single
Orange As Single
End Type
Private Basket() As myArray
Private Sub cmdPage_Click(Index As Integer)
'I know I could declare a fixed array length but want to dynamically increase it!!
ReDim Preserve Basket(10, 0) 'So we have 10 baskets
FillBank 0, "test", 121, 10, 0
FillBank 0, "test2", 121, 3, 0
FillBank 1, "test", 121, 10, 0
FillBank 1, "test2", 121, 3, 0
FillBank 1, "test3", 121, 3, 0
FillBank 1, "test4", 121, 3, 0
FillBank 2, "test", 121, 10, 0
''And this goes onnnnnn
End Sub
'Another Sub which fills the ARRAY
Private Sub FillBank(ByVal BankNo As Single, ByVal sName As String, ByVal CCNo As Single, ByVal CC3No As Single, ByVal ProgNo As Single)
Basket(BankNo, UBound(Basket, 2)).fName = CCNo
Basket(BankNo, UBound(Basket, 2)).Apple = CCNo
Basket(BankNo, UBound(Basket, 2)).Banana = CC3No
Basket(BankNo, UBound(Basket, 2)).Orange = ProgNo
ReDim Preserve Basket(bankNo, UBound(Basket, 2) + 1) 'open a buffer 1 ahead
End Sub
Ok so, as you can see..
1st I redim then array...
then I have another sub which fills the array...
So..
Basket(0) = should return 2
Basket(1) = should return 4
Basket(2) = should return 1
But I can only access Basket(0) with UBound(Basket, 2)
Of course. When you dim Basket, it is (10,0). The 2nd dimension (UBound(Basket,2)) is zero and the 1st dimension (UBound(Basket,1)) will be 10.Quote:
Originally Posted by some1uk03
What exactly are you trying to do? Also, is the sample code you posted your real code or fake code. If fake, please don't do that; let's see some real code.
yes, of course. But the question is; how do you get it to return how many entries basket(1) or basket(3) hold?Quote:
Originally Posted by LaVolpe
In simple english, I'm trying to get the count of entries UBOUND() of each BASKET?
So I'm literally looking for something like; UBound(Basket(1),2) or UBound(Basket(3),2)
and yes this is fake/simplified code... not 100% original... but does the job..
I think redesign or looping thru your arrays are the answer. Regarding "does the job", not for me. I'm royally confused as your array and requirement doesn't make any sense to me I'm afraid.\
You have a 2D array of UDTs, doesn't matter if its UDTs strings, integers, whatever.
A 2D array is thought of like a table or Excel spreadsheet. In your case, you have 10 rows and 0 columns until you resize your array again and start to add columns. So the answer is always the same. The number of Baskets you have is [numElements1D]*[numElements2D]. In this case, it doesn't make a difference, if your array was initially a 1D array sized like Basket(10) which is initially identical to Basket(10,0) size-wise.
If you want to find out how many apples you have in each basket, you'll need to loop thru the array and count the apples member of each UDT in the array. If you want to know how many apples you have in Basket(10,0) then the answer is Basket(10,0).Apples and Basket(5,0).Apples for Basket(5,0)
Maybe looking at real code and/or better describing what you are trying to accomplish will help us?
I think the options are to maybe create a Function to replace UBOUND() which loops @ each element and returns what I need.
Then again, taking the spreadsheet example: I can have 10 ROWS, but not each column will be filled? How do you return how many columns have data in them?
No, I need to find out how many ELEMENTS the array has, rather than the value of the UDT property.Quote:
If you want to find out how many apples you have in each basket, you'll need to loop through the array and count the apples member of each UDT in the array
To try and simplify this, I'm basically trying to AVOID having 10 separate arrays!
Private Basket1() as myArray
Private Basket2() as myArray
Private Basket3() as myArray
''etc.. etc...
So instead I want to use 1 Multidimensional one!
If you want a variable 2D array, suggest something like this:
Now Basket(0).Count can be a different size than Basket(1).Count. Therefore, the size of the array in Basket(0) can be different than Basket(1)Code:Private Type SubArrayStruct
fName As String
Apple As single
Banana As Single
Orange As Single
End Type
Private Type MyArray()
Count ' size of Items() array
Items() As SubArrayStruct
End Type
Private Basket() As myArray
Not sure if that was what you were after
Quote:
Originally Posted by LaVolpe
Yea, this seems to do the job.. :thumb: