Public Function FillTable()
    Dim Pers As Person
    Dim Index As Integer
    Dim newItem As PersonListItem
 
    frmTable.flxTable.Rows = List.Count
 
        For Index = 1 To List.Count
 
            Set newItem = List.Item(Index)
            Set Pers = newItem.Get_Person()
 
            With frmTable
                .flxTable.TextMatrix(Index, 1) = Pers.Get_txtName()
                .flxTable.TextMatrix(Index, 2) = Pers.Get_txtVName()
                .flxTable.TextMatrix(Index, 3) = Pers.Get_txtAddress()
                .flxTable.TextMatrix(Index, 4) = Pers.Get_txtPLZ()
                .flxTable.TextMatrix(Index, 5) = Pers.Get_txtTel()
                .flxTable.TextMatrix(Index, 6) = Pers.Get_txtEmail()
                .flxTable.TextMatrix(Index, 7) = Pers.Get_txtBirth()
            End With
 
        Next 
 
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de