VB: Variablennamen bzw Label-Namen dynamisch vergeben

st0ne · 19.05.2004, 14:04

Hallo!

Ich habe folgendes Problem:

Ich habe eine Klasse Namens Aktie erstellt und davon 15 Objekte instanziert. Nun möchte ich Werte aus eine Db den Objekten und labels zuweisen.

Mein Codes sieht so aus:

Do While datareader.Read()
Aktie1.Name = datareader("Name")
Aktie1.Logo = datareader("Logo")
Aktie1.Beschreibung = datareader("Beschreibung")
Aktie1.Rating = datareader("Rating")
Loop
lbl_Aktie1_Name.Text = Aktie1.Name
lbl_Aktie1_Logo.Text = Aktie1.Logo
lbl_Aktie1_Beschreibung.Text = Aktie1.Beschreibung
lbl_Aktie1_Rating.Text = Aktie1.Rating

byt_Counter += 1
myConnection.Close()
Loop While (byt_Counter <= 15)

Das Problem ist, das ich irgendwie erreichen möchte, dass Aktie1 weitergezählt wird: also Aktie2, Aktie3, Aktie4 usw.

Wie kann ich das realisieren?

19.05.2004, 14:04	#1
st0ne Senior Member Registriert seit: 09.08.2001 Alter: 42 Beiträge: 176	VB: Variablennamen bzw Label-Namen dynamisch vergeben Hallo! Ich habe folgendes Problem: Ich habe eine Klasse Namens Aktie erstellt und davon 15 Objekte instanziert. Nun möchte ich Werte aus eine Db den Objekten und labels zuweisen. Mein Codes sieht so aus: Do While datareader.Read() Aktie1.Name = datareader("Name") Aktie1.Logo = datareader("Logo") Aktie1.Beschreibung = datareader("Beschreibung") Aktie1.Rating = datareader("Rating") Loop lbl_Aktie1_Name.Text = Aktie1.Name lbl_Aktie1_Logo.Text = Aktie1.Logo lbl_Aktie1_Beschreibung.Text = Aktie1.Beschreibung lbl_Aktie1_Rating.Text = Aktie1.Rating byt_Counter += 1 myConnection.Close() Loop While (byt_Counter <= 15) Das Problem ist, das ich irgendwie erreichen möchte, dass Aktie1 weitergezählt wird: also Aktie2, Aktie3, Aktie4 usw. Wie kann ich das realisieren? ____________________________________ Aus Lï¿½gen, die wir glauben, werden Wahrheiten, mit denen wir leben. - Oliver Hassencamp Sys 1: siehe Profil Sys 2: Samsung X20

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)