Private cl_test a new class_test
    Private Properties As Type = cl_test.GetType()
    Private value As Object
    Private index As Object()
 
    For Each c As Control In Me.pan_typ_anlegen_aendern.Controls
      If TypeOf c Is ComboBox Then
        If IsNumeric(c.Text) Then
          propertieName = "P_Stufe" & Mid(c.Name.ToString, 6, 3) 
          For Each pi As PropertyInfo In Properties.GetProperties()
            If pi.Name = propertieName Then
              pi.SetValue(cl_test, value, index)
              exit For
            End If
          Next        
        End If
      End If
    Next

____________________________________________________________________

Wie lange eine Minute ist, h?ngt davon ab auf welcher Seite der Toilettent?r man steht

Beitrag wurde zuletzt am 26.08.08 um 11:24:53 editiert.