3 svar · 221 visningar · startad av firstchoice
jag har deklarerat enligt följande
Public Type udtMedRegTyp
'Globara variabler för vårt register.
strFörnamn As String
strEfternamn As String
strTelefonnummer As String
strPersonnummer As String
strAdress As String
strPostnummer As String
strPostort As String
strMedlemsavgift As String
End Type
Public g_aMedlemsRegister(0 To g_conMaxAntal - 1) As udtMedRegTyp
hur fixar jag en smidig spar funktion nu
orkar ju inte göra så här för alla
g_aMedlemsRegister(I).strFörnamn = "blblalala"
kan man göra en slags loop?
Förstår inte riktigt men något sådant här?
Dim i As Integer
For i = LBound(g_aMedlemsRegister) To UBound(g_aMedlemsRegister)
g_aMedlemsRegister(i).strFörnamn = "foo"
' Diverse annan kod ...
Next i
R// Läser du kanske in namnen från någon databas av något slag eller något?
inte riktigt så jag menade
typ
for each object in g_aMedlemsRegister
Då kommer du tyvärr inte närmre än såhär:
Dim objekt As udtMedRegTyp, i As Integer
For i = LBound(g_aMedlemsRegister) To UBound(g_aMedlemsRegister)
objekt = g_aMedlemsRegister(i)
Next i
För att använda något skriver du sedan bara t.ex. objekt.strFörnamn
R// Vill du sedan att ändringarna du gjort i objekt även ska ändras i g_aMedlemsRegister, skriver du bara dit g_aMedlemsRegister(i) = objekt längst ner i loopen.