Erreur LINQ La séquence ne contient aucun élément

Bonjour,
je ne sais pas tester l'expression avant de l'assigner
La requête est à priori bonne puisque je boucle dessus sans problème sauf si aucun élément n'est trouvé

Code:

---

Dim sphereMin = (From TV In Me.tarifsVerres Where TV.codeVerre = V.codeVerre Select (TV.sphereDebut)).Min()

---

Une erreur est remontée sur cette ligne

Citation:

---

InvalidOperationException
La séquence ne contient aucun élément.

---

Merci de m'aiguiller

Salut
peut etre ici

Bonjour,
Je pense que c'est le .Min() qui pose pb :

Code:

---

1 2 3 4 5 6 7 8

Dim sphereMin as Int32 Dim sphere = (From TV In Me.tarifsVerres Where TV.codeVerre = V.codeVerre Select (TV.sphereDebut)) if Not isNothing(Sphere) Then sphereMin = sphere.Min() Else sphereMin = ?? End If

---

Edit : çà tient surement dans le linq avec une expression ternaire IF(condition, exp true, exp false) ou IIF(condition,exp true,exp false)

Conformément à la documentation Min lève un InvalidOperationException, lorsque sa source ne contient aucun élément. (logique, quel serait le minimum d'une séquence vide ? 0, -1, -Infini ...)

Il te faut donc t'assurer qu'il y ait au moins un élément, par exemple avec Any pour vérifier que la séquence est non vide ou en utilisant une des surcharges (selon le besoin) de DefaultIfEmpty pour "récupérer" une valeur par défaut le cas échéant

@dkmix: il ne faut JAMAIS utilliser la fonction IIf et TOUJOURS lui préférer l'opérateur If
En effet la première existe surtout de manière historique (utilisée dans VB6 par exemple) et présente le souci majeur, de ne pas être court-circuitante, c'est à dire que dans tous les cas la partie "Si Vrai" et "Si Faux" sont toutes deux évaluées.
Autrement dit (recopié de la documentation) If (divisor <> 0, number / divisor, 0) fonctionnera correctement mais IIf (divisor <> 0, number / divisor, 0) plantera avec une DivideByZeroException

Merci à tous de vous intéresser à mon problème et merci de vos réponses
Finalement, la méthode Any me satisfait

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim lstTarifs = (From TV In Me.tarifsVerres Where TV.codeVerre = V.codeVerre).ToList If Not lstTarifs.Any Then okForInsert = False Else Dim sphereMin = (From TV In Me.tarifsVerres Where TV.codeVerre = V.codeVerre Select (TV.sphereDebut)).Min() Dim sphereMax = (From TV In Me.tarifsVerres Where TV.codeVerre = V.codeVerre Select (TV.sphereFin)).Max() Dim cylMax = (From TV In Me.tarifsVerres Where TV.codeVerre = V.codeVerre Select (TV.cylindreFin)).Max() V32.plageMini = sphereMin V32.plageMaxi = SphereMax V32.plageMaxiT = cylMax End If

---

Le problème est donc résolu.