Valori totali errati

i conti 2 e 3 ce l'ho per tutto l'anno tranne quelli del mese corrente

Dato che non sei chiaro, mi puoi fare un elenco dei dati che hai per il conto 2 ?

scusa cosa intendi per elenco dei dati?

Per idconto = 2

data entrate uscite
... .... ...

Basta che mostri il risultato di una SELECT * FROM Contabilita WHERE idconto=2

Certo, sono identici al conto 1 "data entrate uscite"

Questa è la select del conto 2

        Try
            Dim cmd As SqlCommand
            Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
            Dim Sql As String = “SELECT SUM(entrate) As TotaleE, SUM(uscite) As TotaleU FROM contabilita WHERE idconto=2 AND MONTH(data) = MONTH(GETDATE()) AND YEAR(data) = YEAR(GETDATE())"

            cmd = New SqlCommand(Sql, conn)
            conn.Open()

            Dim DR As SqlDataReader
            DR = cmd.ExecuteReader

            DR.Read()

            Dim TotE As Decimal = IIf(IsDBNull(DR("TotaleE")), 0, DR("TotaleE"))
            Dim TotU As Decimal = IIf(IsDBNull(DR("TotaleU")), 0, DR("TotaleU"))

            Label13.Text = String.Format("{0:c2}", TotE - TotU).ToString()
            Label13.ForeColor = IIf(TotE - TotU < 0, Color.Red, Color.Green)

            cmd.Dispose()
            conn.Close()

        Catch ex As Exception

        End Try

Allora freddy ... capiamoci ... il codice deve funzionare per qualsiasi conto ... 1, 2, 3 o quello che è ... Se i dati sono diversi io non lo so e tu continui a non mostrarli quindi non ci posso fare nulla.

Se vuoi, fai uno zip del codice e dei dati e falli scaricare

Questo è tutto il codice dei 3 conti

 Try
            Dim cmd As SqlCommand
            Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
            Dim Sql As String = “SELECT SUM(entrate) As TotaleE, SUM(uscite) As TotaleU FROM contabilita WHERE idconto=1 AND MONTH(data) = MONTH(GETDATE()) AND YEAR(data) = YEAR(GETDATE())"

            cmd = New SqlCommand(Sql, conn)
            conn.Open()

            Dim DR As SqlDataReader
            DR = cmd.ExecuteReader

            DR.Read()

            Dim TotE As Decimal = IIf(IsDBNull(DR("TotaleE")), 0, DR("TotaleE"))
            Dim TotU As Decimal = IIf(IsDBNull(DR("TotaleU")), 0, DR("TotaleU"))

            Label9.Text = String.Format("{0:c2}", TotE - TotU).ToString()
            Label9.ForeColor = IIf(TotE - TotU < 0, Color.Red, Color.Green)

            cmd.Dispose()
            conn.Close()

        Catch ex As Exception

        End Try

        Try
            Dim cmd As SqlCommand
            Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
            Dim Sql As String = “SELECT SUM(entrate) As TotaleE, SUM(uscite) As TotaleU FROM contabilita WHERE idconto=2 AND MONTH(data) = MONTH(GETDATE()) AND YEAR(data) = YEAR(GETDATE())"

            cmd = New SqlCommand(Sql, conn)
            conn.Open()

            Dim DR As SqlDataReader
            DR = cmd.ExecuteReader

            DR.Read()

            Dim TotE As Decimal = IIf(IsDBNull(DR("TotaleE")), 0, DR("TotaleE"))
            Dim TotU As Decimal = IIf(IsDBNull(DR("TotaleU")), 0, DR("TotaleU"))

            Label13.Text = String.Format("{0:c2}", TotE - TotU).ToString()
            Label13.ForeColor = IIf(TotE - TotU < 0, Color.Red, Color.Green)

            cmd.Dispose()
            conn.Close()

        Catch ex As Exception

        End Try

        Try
            Dim cmd As SqlCommand
            Dim conn As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\My Project\BudgetFamiliare.mdf;Integrated Security=True")
            Dim Sql As String = “SELECT SUM(entrate) As TotaleE, SUM(uscite) As TotaleU FROM contabilita WHERE idconto=3 AND MONTH(data) = MONTH(GETDATE()) AND YEAR(data) = YEAR(GETDATE())"

            cmd = New SqlCommand(Sql, conn)
            conn.Open()

            Dim DR As SqlDataReader
            DR = cmd.ExecuteReader

            DR.Read()

            Dim TotE As Decimal = IIf(IsDBNull(DR("TotaleE")), 0, DR("TotaleE"))
            Dim TotU As Decimal = IIf(IsDBNull(DR("TotaleU")), 0, DR("TotaleU"))

            Label14.Text = String.Format("{0:c2}", TotE - TotU).ToString()
            Label14.ForeColor = IIf(TotE - TotU < 0, Color.Red, Color.Green)

            cmd.Dispose()
            conn.Close()

        Catch ex As Exception

        End Try

        Try

sul conto 1 funziona alla perfezione

Freddy ... così le discussioni diventano infinite, come al solito ...

Ho capito qual è il codice e ho capito che per il conto 1 funziona.

Ti ho chiesto di mostrarmi esplicitamente i dati del db e non l'hai fatto (perché?)
Ti ho detto di zippare il codice e i dati e farli scaricare (ovviamente devi fare il file zip e dare una url) e non lo hai fatto.

Se continuiamo così non resta che chiudere il thread.