| |
VB.NET - FortgeschritteneRe: Einnahmen, Ausgaben, Auswertungen | | | Autor: Erichbru | Datum: 17.03.23 18:59 |
| ich probiere gerade diesen Code:
Private Function Kosten1(year As Integer) As DataTable
Dim Text As String = ""
Dim dt As DataTable = HBDatenbankDS.Kontodetails
Dim cal As Globalization.Calendar = _
Globalization.CultureInfo.CurrentCulture.Calendar
Me.Cursor = Cursors.WaitCursor
Dim q = From row As DataRow In dt
Let Betrag = row.Field(Of Integer)("Betrag")
Let Buchung = row.Field(Of String)("Buchungsart")
Where year = row.Field(Of Date)("Buchungsdatum").Year _
AndAlso row.Field(Of Integer)("UserID") = aktBenutzerRow.ID _
AndAlso row.Field(Of String)("Buchungsart") <> Text _
Group By art = Buchung Into Sum(Betrag), Count()
Dim df As New DataTable
With df.Columns
.Add("Buchungsart", GetType(String))
.Add("Count", GetType(Integer))
.Add("Betrag", GetType(Double))
End With
For Each el In q
df.Rows.Add(el.art, el.Count, el.Sum)
Next el
Dim bs As New BindingSource With {.DataSource = df}
bs.Sort = "Count DESC"
Dim _Sum As Integer
_Sum = df.AsEnumerable().Sum(Function(row) row.Field(Of Double)( _
"Betrag"))
'Daten in der DGV anzeigen
DGV1.DataSource = bs das geht dann in eine DGV, das Ergebnis passt nicht 1 Ausgabe, 1 Einnahme (es müssten 1 x (-70,00) Ausgabe, 3 x Einnahmen (1.500,00) drin stehen) in meinem Beispiel habe ich einen Fehler warum ?
das Dia wäre auch noch offen | |
Einnahmen, Ausgaben, Auswertungen | 479 | Erichbru | 17.03.23 12:31 | Re: Einnahmen, Ausgaben, Auswertungen | 202 | emaNoN | 17.03.23 17:44 | Re: Einnahmen, Ausgaben, Auswertungen | 255 | Erichbru | 17.03.23 18:59 | Re: Einnahmen, Ausgaben, Auswertungen | 222 | Erichbru | 17.03.23 19:20 | Re: Einnahmen, Ausgaben, Auswertungen | 198 | emaNoN | 18.03.23 18:06 | Re: Einnahmen, Ausgaben, Auswertungen | 195 | Erichbru | 19.03.23 12:26 | Re: Einnahmen, Ausgaben, Auswertungen | 157 | Erichbru | 24.03.23 10:07 | Re: Einnahmen, Ausgaben, Auswertungen | 159 | emaNoN | 24.03.23 15:06 |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevEingabe 3.0
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|