Hab das jetzt so - funktioniert aber ueberhaupt nuesse!
Bitte um Hilfe
' schreibt Daten in die Textfelder
Public Sub setListData(index As Integer)
Me.txtArrive = arrData(index)(1)
Me.txtChanges = arrData(index)(2)
Me.txtIBS = arrData(index)(3)
Me.txtWork = arrData(index)(4)
Me.txtStatic = arrData(index)(5)
Me.txtDynamic = arrData(index)(6)
Me.txtCustomer = arrData(index)(7)
Me.txtKm = arrData(index)(8)
End Sub
____________________________________
mfg
Prasman
"I can look at a chick who's a little out of shape and if she turns me on, I won't hesitate to date her. If she's a good fuck, she can weigh 150 pounds, I don't care."- Arnold Schwarzenegger 1977
|