Expression Lambda et integer

Version imprimable

Bonjour

Mon but est de faire un tri sur une propriété de ma classe Eleve choisi de manière dynamique , ici défini en dur par sortPropertyName.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
            Dim personType As Type = GetType(Eleve)
            Dim sortPropertyName As String = "Toto"
 
            If (personType.GetProperties().Any(Function(prop) prop.Name = sortPropertyName AndAlso prop.CanRead)) Then
                Dim pinfo As PropertyInfo = personType.GetProperty(sortPropertyName)
                Dim paramExpr As ParameterExpression = Expression.Parameter(GetType(Eleve), "instance")
                Dim memberExpr As MemberExpression = Expression.Property(paramExpr, pinfo)
 
                Dim orderByFunc As Func(Of Eleve, Object) = Expression.Lambda(Of Func(Of Eleve, Object))(memberExpr, paramExpr).Compile()
 
                Dim sortFunc As Func(Of IEnumerable(Of Eleve), IOrderedEnumerable(Of Eleve)) = Nothing
 
                If (Sens) Then
                    sortFunc = (Function(source) source.OrderBy(orderByFunc))
                Else
                    sortFunc = (Function(source) source.OrderByDescending(orderByFunc))
                End If
 
                query = sortFunc(query).ToList()
            End If

Ce code fonctionne nickel pour les strings mais pour les integer j'ai une erreur sur

Code:

Dim orderByFunc As Func(Of Eleve, Object) = Expression.Lambda(Of Func(Of Eleve, Object))(memberExpr, paramExpr).Compile()

Citation:

Une expression de type 'System.Int32' ne peut pas être utilisée pour un type de retour 'System.Object'

Comme j'ai du mal à comprendre le code (trouver à force de recherche Google), je ne comprend pas comment résoudre le problème.

Merci de votre aide

Int32 est un type valeur (struct). Quand tu affectes un type valeur à un object, par exemple comme ça :

Code:

1
2
3
Function Foo() As Object
    Return 42
End Function

Il se produit un "boxing" : ça crée un object qui contient la valeur. En IL ça donne ça :

Code:

1
2
3
ldc.i4.s    2A 
box         System.Int32
ret

Le compilateur le fait implicitement, mais quand tu construis une méthode avec des expressions Linq, il faut ajouter manuellement la conversion en object:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
            Dim personType As Type = GetType(Eleve)
            Dim sortPropertyName As String = "Toto"
 
            If (personType.GetProperties().Any(Function(prop) prop.Name = sortPropertyName AndAlso prop.CanRead)) Then
                Dim pinfo As PropertyInfo = personType.GetProperty(sortPropertyName)
                Dim paramExpr As ParameterExpression = Expression.Parameter(GetType(Eleve), "instance")
                Dim memberExpr As Expression = Expression.Property(paramExpr, pinfo)
                If pinfo.PropertyType.IsValueType Then
                    memberExpr = Expression.Convert(memberExpr, GetType(Object))
                End If
 
                Dim orderByFunc As Func(Of Eleve, Object) = Expression.Lambda(Of Func(Of Eleve, Object))(memberExpr, paramExpr).Compile()
 
                Dim sortFunc As Func(Of IEnumerable(Of Eleve), IOrderedEnumerable(Of Eleve)) = Nothing
 
                If (Sens) Then
                    sortFunc = (Function(source) source.OrderBy(orderByFunc))
                Else
                    sortFunc = (Function(source) source.OrderByDescending(orderByFunc))
                End If
 
                query = sortFunc(query).ToList()
            End If

Merci pour l'explication.

En reprenant ta modification

Code:

1
2
3
If pinfo.PropertyType.IsValueType Then
                    memberExpr = Expression.Convert(memberExpr, GetType(Object))
                End If

j'ai eu le message d'erreur :

Citation:

impossible de caster un type unaryExpression en MemberExpression

En grattant j'ai trouvé ça

Ce qui traduit donne :

Code:

1
2
3
If pinfo.PropertyType.IsValueType Then
                    memberExpr = CType(Expression.Convert(memberExpr, GetType(Object)).Operand, MemberExpression)
                End If

Mais au final je retrouve la même erreur

Je pense que l'erreur est plus sur le "Object" de

Code:

Expression.Lambda(Of Func(Of Eleve, Object))(memberExpr, paramExpr).Compile()

j'ai vu une fonction

Code:

1
2
3
4
5
6
7
8
9
 Public Shared Function GetCorrectPropertyName(Of T) _
                (ByVal expression As Expression(Of Func(Of T, Object))) As String
        If TypeOf expression.Body Is MemberExpression Then
            Return DirectCast(expression.Body, MemberExpression).Member.Name
        Else
            Dim op = (CType(expression.Body, UnaryExpression).Operand)
            Return DirectCast(op, MemberExpression).Member.Name
        End If
    End Function

Mon instinct dit pas mal, mais je ne vois pas l'adaptation

23/07/2014, 09h56
tomlev
Citation:
Envoyé par Pelote2012

En reprenant ta modification

Code:

1 2 3 If pinfo.PropertyType.IsValueType Then memberExpr = Expression.Convert(memberExpr, GetType(Object)) End If

j'ai eu le message d'erreur :
Parce que tu n'as pas repris toute ma modification ;)
J'ai modifié le type de déclaration de la variable memberExpr en Expression (au lieu de MemberExpression), et là ça passe
23/07/2014, 10h33
Pelote2012

En plus t'as raison lol
Mon nom de famille c'est LEBORGNE :mouarf:

Pardon +50

Sinon j'ai vu que

Code:

Dim orderByFunc As Func(Of WebForm2.Eleve, Integer) = Expression.Lambda(Of Func(Of WebForm2.Eleve, Integer))(memberExpr, paramExpr).Compile()

marche pour les integer ... mais je préfère ta méthode, ça fait tout au lieu de m'embarquer dans un if elseif ... pour chaque type à problème