Dim
NZT_BasicDaten(1
To
10)
As
String
Dim
NZT_BasicDatenE(1
To
10)
As
String
AktualisiereDatenSelektieren(NZT_BasicDaten(), NZT_BasicDatenE())
Function
AktualisiereDatenSelektieren(DatenArray()
As
String
, DatenArrayE()
As
String
)
DatenSelektieren.CheckBoxRohdaten1.Caption = DatenArray(1)
DatenSelektieren.CheckBoxRohdatenE1.Caption = DatenArrayE(1)
DatenSelektieren.OptionButtonRohdaten1.Caption = DatenArray(1)
DatenSelektieren.OptionButtonRohdatenE1.Caption = DatenArrayE(1)
DatenSelektieren.OptionButtonRohdaten2.Caption = DatenArray(2)
DatenSelektieren.OptionButtonRohdatenE2.Caption = DatenArrayE(2)
DatenSelektieren.OptionButtonRohdaten3.Caption = DatenArray(3)
DatenSelektieren.OptionButtonRohdatenE3.Caption = DatenArrayE(3)
DatenSelektieren.OptionButtonRohdaten4.Caption = DatenArray(4)
DatenSelektieren.OptionButtonRohdatenE4.Caption = DatenArrayE(4)
DatenSelektieren.OptionButtonRohdaten5.Caption = DatenArray(5)
DatenSelektieren.OptionButtonRohdatenE5.Caption = DatenArrayE(5)
DatenSelektieren.OptionButtonRohdaten6.Caption = DatenArray(6)
DatenSelektieren.OptionButtonRohdatenE6.Caption = DatenArrayE(6)
DatenSelektieren.OptionButtonRohdaten7.Caption = DatenArray(7)
DatenSelektieren.OptionButtonRohdatenE7.Caption = DatenArrayE(7)
DatenSelektieren.OptionButtonRohdaten8.Caption = DatenArray(8)
DatenSelektieren.OptionButtonRohdatenE8.Caption = DatenArrayE(8)
DatenSelektieren.OptionButtonRohdaten9.Caption = DatenArray(9)
DatenSelektieren.OptionButtonRohdatenE9.Caption = DatenArrayE(9)
DatenSelektieren.OptionButtonRohdaten10.Caption = DatenArray(10)
DatenSelektieren.OptionButtonRohdatenE10.Caption = DatenArrayE(10)
End
Function