Laufsumme ist falsch !!!???

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Hempelchen.

    Laufsumme ist falsch !!!???

    Hallo



    Ich hab nen DataSet und mochte jetzt eine Laufsumme aus Einnahmen und Ausgaben errechnen (im DataSet) um es anschließend in ein DataGridView zu laden... mein Code sieht wie folgt aus... geht aber noch nicht ganz....irgendwo ist der wurm drin...

    VB.NET-Quellcode

    1. Dim Laufsumme As String = 0
    2. ' Laufsummen errechnung
    3. Dim Wert As Double = 0
    4. Dim Wert1 As Double = 0
    5. Dim Wert2 As Double = 0
    6. For j = 0 To dsSP.Tables(0).Rows.Count - 1
    7. If CDbl(dsSP.Tables(0).Rows(j).Item("Laufsumme")) > Wert Then
    8. Wert = CDbl(dsSP.Tables(0).Rows(j).Item("Laufsumme"))
    9. Wert1 = (CDbl(dsSP.Tables(0).Rows(j).Item("Einnahme")) + CDbl(dsSP.Tables(0).Rows(j).Item("Ausgaben")))
    10. Wert2 = Wert + Wert1
    11. End If
    12. Next
    13. Laufsumme = Wert2


    hat jemand einen Tip?

    dsSP ist das Dataset...

    Danke im Vorraus...

    Doofe Frage... Aber wieso ADDIERST du Einnahmen und Ausgaben?

    VB.NET-Quellcode

    1. Wert1 = (CDbl(dsSP.Tables(0).Rows(j).Item("Einnahme")) + CDbl(dsSP.Tables(0).Rows(j).Item("Ausgaben")))


    Und ich verstehe gerade noch nicht sorecht wofür die If-Abfrage ist:

    VB.NET-Quellcode

    1. If CDbl(dsSP.Tables(0).Rows(j).Item("Laufsumme")) > Wert Then


    Möchtest du mit der "Laufsumme" nur berechnen wie hoch Summe von Einnahmen abzüglich der Summe von Ausgaben ist?

Facebook