[AccessD] Brain Fart regarding arrays

[Rocky Smolin]

Old guys quiz:

I see you are using (like me) intI and intJ for counters in a For Next loop.

Who knows the etymology intI and intJ?

r

On Sat, Jan 7, 2023 at 6:40 PM jack drawbridge <jackandpat.d at gmail.com>
wrote:

> Arthur,
>
> Here's a method that may satisfy your requirement. It's been a long time
> since I did multi-dimension anything.
> Hope it's helpful.
>
> '=====arthur fuller
>
>
> Sub Fill_2DArray()
>     Dim intI As Integer, intJ As Integer
>     Dim Arr1 As Variant, arr2 As Variant
>     Arr1 = Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
>     arr2 = Array(0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
>     Dim TwoD(0 To 1, 0 To 12) As Integer
>
>     ' Fill array with values.
>     For intI = 0 To 1
>         For intJ = 0 To 12
>             Select Case intI
>                 Case 0
>                     TwoD(intI, intJ) = Arr1(intJ)
>                 Case 1
>                     TwoD(intI, intJ) = arr2(intJ)
>             End Select
>             Debug.Print "TwoD(" & intI & " , " & intJ & ")  is " &
> TwoD(intI, intJ)
>         Next intJ
>         Debug.Print
>     Next intI
> End Sub
>
> On Sat, Jan 7, 2023 at 8:54 PM Arthur Fuller <fuller.artful at gmail.com>
> wrote:
>
> > I can't remember at the moment how to populate a 2D array. I know what I
> > want: 13 x 2:
> >
> > Row 1: (0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
> > Row 2: (0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
> >
> > I seem to recall being able to populate it in two steps, passing the rows
> > as described above, but I can't recall the syntax. I've been spending too
> > much time in C and C++ and have forgotten my VBA. 🙁
> >
> > --
> > Arthur
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > https://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>