Discussion :

[beabea]

bonjour,

je fais la somme d'une colonne mais si il n'y a pas de lignes retournées, j'ai un message d'erreur. Aussi, je voudrais que mon select ne se fasse que s'il y a des lignes sans pour autant devoir écrire les premières lignes pour savoir si sumliqprotocoles à un count >0. Je voudrais que le test soit fait dans le même code. si quelqu'un connait la syntaxe, ça m'aiderai bien

voici mon code

Code vb.net :

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

1
2
Dim sumliqprotocoles = (From psumliqprotocole In LQsuiviRPE.DossierLiquidation Where (psumliqprotocole.DL_date >= Me.RDPdatedebut.SelectedDate And psumliqprotocole.DL_date <= Me.RDPdatefin.SelectedDate).Value _
 Select CDec(psumliqprotocole.DL_montant)).Sum()

merci bcq
Béatrice

[Philippe Vialatte]

euhh...

sans pour autant devoir écrire les premières lignes pour savoir si sumliqprotocoles à un count >0

pourquoi (question bete obligatoire)?

Je ne pense pas que t'enlever une ligne de code te fera gagner en lisibilite, ni en perfs...

Sinon, essaye peut-etre de caster psumliqprotocole.DL_montant en un type nullable

donc, grosso modo

Code :

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

1
2
3
4
 
Dim sumliqprotocoles = (From psumliqprotocole In LQsuiviRPE.DossierLiquidation _
Where (psumliqprotocole.DL_date >= Me.RDPdatedebut.SelectedDate And psumliqprotocole.DL_date <= Me.RDPdatefin.SelectedDate).Value _
Select (DirectCast(psumliqprotocole.DL_montant, Nullable (of Decimal))).Sum()

je suis pas sur de la syntaxe, ca fait trop longtemps sans vb...

[Le_Phasme]

Je te propose un truc du genre, ca a un avantage, tu ne requetes qu'une fois dans ta BDD... mais au final ca revient au même :

Code :

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

1
2
3
4
5
6
7
        Dim iFirstSum As Integer
        Dim MyObjectForCalcul = (From MesOrders In dtct.Orders _
                                Where MesOrders.OrderClientId = 1 _
                                Select MesOrders.OrderFee)
        If MyObjectForCalcul.Count > 0 Then
            iFirstSum = MyObjectForCalcul.Sum
        End If