✔ Struktur an Collection hängen

[ftt]

Hallo liebe Helfer/innen,

ich habe folgendes Problem:

und zwar habe ich eine Typdefinition gemacht in einem Modul gemacht

Public Type WRdaten
abschaltzeit As Long
abschaltpac As Long
tchoke As Long
tigbt As Long
tpcb As Long
filenr As Long
End Type

und will diese nun in mit daten füllen und an die collection anhängen

dim ps as WRdaten
dim list as new Collection

ps.abschaltzeit = wertesuchen(nrows, "ICU_Status", "TestTime")
ps.abschaltpac = wertesuchen(nrows, "ICU_Status", "Pac") * (-1)
ps.tchoke = wertesuchen(nrows, "ICU_Status", "GMU_T_Choke") - 50
ps.tigbt = wertesuchen(nrows, "ICU_Status", "ICU_T_Igbt") - 50
ps.tpcb = wertesuchen(nrows, "ICU_Status", "GMU_T_PCB") - 50
ps.filenr = filenr
list.add ps

es kommt dann folgende fehlermeldung beim ausfürhen:

Compile error:
only user-defined types defined in public object moduls can be coerced to or form a variant or passed to late bound functions


aber irgendwie funktioniert das bei mir nicht warum?

vielen dank

frank

 

[Alex F.]

Ich habe es lange nicht mehr versucht aber ich glaube Collections können nur Klassen aufnehmen

Grüsse bb

 

[ftt]

hey

ja danke das funktioniert so weit.

habe ne calsse
sub class()
public a as integer
public b as integer
end sub


die erzeug ich dann neu

dim ps as new collection
dim abc as class1

set abc =new class1

abc.a=3
abc.b=45

dann häng ich das an eine collection dran


ps.add abc


jetzt hab ich nur noch die frage wie ich auf die einzelnen variablen wieder zugraifen kann, bzw auslesen

 

[ftt]

ha sich erledigt vergass immer eine neue instanz der klasse zu erzeugen

danke