Originariamente inviato da Tempestaxmen
Beh, la prima parte l'ho risolta scrivendo:

where Nome LIKE :NomeUtente

per la parte di If-Then-Else avete suggerimenti?

Io ho scritto:

Public Shared Function CalcoloResiduoNegativo(ByVal SommaImporto As Decimal, ByVal SommaImportoFatt As Decimal) As Decimal

Dim Totale As Decimal = SommaImporto - SommaImportoFatt

If (Totale > 0) Then Return Totale

Else Return 0

End Function

Ma quando vado a far girare il report mi dice:

'Else' must be preceded by a matching 'If' or 'ElseIf'
codice:
If (Totale > 0) Then 
    Return Totale
Else 
    Return 0
End if