Supernem: Erklæring af array

PS:

Man kan _vist_ gøre følgende:

Public Type Dummy
  tabel1(1 To 5) As String
  tabel2(1 To 4) As String
  tabel3(1 To 5) As String
  tabel4(1 To 6) As String
End Type

Public MitArray(1 To 4) As Dummy

og så kalde MitArray(2).tabel4(4) = "hej, i=2, j=4"

Men det virker ikke helt som jeg tænker mig, og kræver desuden at Dummy bliver erklæret i et modul (*.bas), og det er jeg ikke interesseret i..

/Martin

dim (8) as string
eller
dim (2,2) as integer

den øverste er et array

Den løsning du har skitseret har jeg jo selv foreslået. Og den duer jo fint, bortset fra, at

dim MitArray(4,6) as String

bevirker, at der bliver oprettet 24 "pladser" i mit array. Det kunne være lækkert, om man kunne definere det som

Dim MitArray(i,j) as String

hvor i = 1 .. 4

og på en eller anden måde få fortalt, at
for i = 1 haves j = 1 .. 5
for i = 2 haves j = 1 .. 4
for i = 3 haves j = 1 .. 5
for i = 4 haves j = 1 .. 6

altså i alt kun 20 pladser.

Det jeg er ude efter er nemlig at kunn elave en løkke, der løber andet index i tabellen igennem fra 1 til antallet af elementer i den pågældende tabel.

Altså i mit eksempel, så skal programmet loope med i = 1 to 4 og for hver værdi af i loope gennem samtlige j'er (hhv. 5,4,5,6 for i = 1,2,3,4)...

Kan man det?

Ved du hvad - jeg har lavet om på min øvrige kode, så et array med 24 pladser kan bruges. Og du får dine poients - selvom jeg ikke synes at jeg fik et helt svar. Men tak skal du da have ;o) /Martin

jeg indrømmer det var lidt hurtigt skrevet.
jeg forstår ikke helt det sidste af dit spørgsmål. men kunne det være noget med :
Option Explicit
dim j, i as integer

Private Sub Form_load()
j = 1
i = 1
dim (i, j) as integer
End sub