Discussion :

[Pelote2012]

Bonjour,

Comme j'ai galéré je partage la solution.

J'ai une class

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
<TableFullOption.TFOAttribute("Key")> Property Id As Integer
<TableFullOption.TFOAttribute("Image")> Property Img As String
Property Name As String
Property Major As Boolean
<TableFullOption.TFOAttribute("FK_Sexe")> Property Sex As Integer
Property English As Nullable(Of Integer)
Property Japanese As Nullable(Of Double)
Property Calculus As Decimal
Property Geometry As Integer
End Class

J'ai une liste de cette class et je voudrais récupérer toutes les valeurs du champs Img

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Public Shared Function GetColumn(Of MaClass As Class)(ByVal items As List(Of MaClass), ByVal columnName As String) As List(Of String)
    Return items.Select(Function(x) If(x.GetType().GetProperty(columnName).GetValue(x, Nothing), String.Empty).ToString).ToList
End Function

Cette fonction à la beauté de marcher avec toutes les classes
L'appel

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each col In Ret.StructTbl.LstCol
     If col.EstImage Then
         col.Liste = GetColumn(Of Eleve)(Ret.LstDatas.LstObj, col.SQLName)
     End If
 Next