Discussion :

[The_Big_Lebowski]

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 :

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

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

Une erreur est remontée sur cette ligne

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

Merci de m'aiguiller

[shayw]

Salut
peut etre ici

[dkmix]

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

Code :

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

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)

[Sehnsucht]

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

[The_Big_Lebowski]

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

Code :

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

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.