Discussion :

[koyot3]

Bonjour à tous,

J'ai un petit soucis d'optimisation de mon code : j'utilise une liste contenant des objets.
Grâce à du liq, je fais différentes opérations avec notamment des sélections.

Code :

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

Dim query = From mObj As Obj In ListOfObj Where (mObj.value < 13) Select mObj

J'aimerais savoir, s'il n'était pas possible d'avoir la condition Where dynamique : par exemple, au lieu d'avoir le code en dur, avoir la possibilité de passer un String "mObj.value < 13" qui donnerait le même résultat.
Cela dans le but d'éviter la redondance dans mon code.

J'ai regardé sur internet mais je n'ai rien trouvé de fonctionnel

Par avance, merci à ceux qui auraient des idées !

@+

[tomlev]

Jette un oeil à Dynamic Linq. Le code est inclus dans les samples fournis avec Visual Studio.

Ca permet de faire quelque chose comme ça :

Code :

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

Dim query As ListOfObj.Where("value < 13")

[koyot3]

Merci de ta réponse Tomlev !

Je suis justement en train de tester cette méthode mais j'ai des soucis pour utiliser la classe
Je l'ai mise dans mon projet avec un simple cliquer-glisser : il me lève l'erreur suivante

'Globalization' n'est pas un membre de 'System'

à deux endroits

Une idée de où peut venir l'erreur ?

[tomlev]

Je suis justement en train de tester cette méthode mais j'ai des soucis pour utiliser la classe
Je l'ai mise dans mon projet avec un simple cliquer-glisser : il me lève l'erreur suivante

'Globalization' n'est pas un membre de 'System' à deux endroits

Bizarre, vu que la plupart des classes de System.Globalization sont dans mscorlib
Quel fichier tu as copié ? Dynamic.vb, qui contient le module DynamicQueryable ?

[koyot3]

J'ai copié la classe Dynamic.vb à la racine de mon projet.
Par contre, si j'ajoute le projet source à ma solution + référence au projet, cela fonctionne

Enfin je dis fonctionne mais je n'arrive pas à l'utiliser

Code :

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

Dim query = From mObj As Obj In ListOfObj Where ("mObj.tps < @0 " , 13) Select mObj

Pour le compilateur, il me manque une parenthèse, que bien sûr si j'ajoute, me dit qu'il y en a une en trop ..

Bref...

[tomlev]

Pour le compilateur, il me manque une parenthèse, que bien sûr si j'ajoute, me dit qu'il y en a une en trop ..

Tu es sûr que la parenthèse manquante serait pas sur une ligne précédente ?