Hallo zusammen!
Wie stelle ich es am besten an, das ich Jahresdaten nach Monaten in einem DGV anzeigen kann?
Ich habe es bisher so probiert, aber so wird es eine Menge Code
Die Jahre erstelle ich so:
jede einzelne Zeile fülle ich so:
Im Beispiel sieht man vielleicht ehe, was ich meine!
Hat jemand für mich einen Tipp, wie man es eleganter machen kann?
Danke
Matthias
Wie stelle ich es am besten an, das ich Jahresdaten nach Monaten in einem DGV anzeigen kann?
Ich habe es bisher so probiert, aber so wird es eine Menge Code
Die Jahre erstelle ich so:
jede einzelne Zeile fülle ich so:
VB.NET-Quellcode
- '2014
- .Rows(0).Cells("Summe").Value = UmsatzDS1.UmsatzDT.Where(Function(x) x.Datum >= "#1/01/2014 12:00:00 AM#" AndAlso x.Datum <= "#31/12/2014 12:00:00 AM#").Sum(Function(x) x.Waschzahlen).ToString()
- .Rows(0).Cells("Januar").Value = UmsatzDS1.UmsatzDT.Where(Function(x) x.Datum >= "#1/1/2014 12:00:00 AM#" AndAlso x.Datum <= "#31/1/2014 12:00:00 AM#").Sum(Function(x) x.Waschzahlen).ToString()
- .Rows(0).Cells("Februar").Value = UmsatzDS1.UmsatzDT.Where(Function(x) x.Datum >= "#1/2/2014 12:00:00 AM#" AndAlso x.Datum <= "#28/2/2014 12:00:00 AM#").Sum(Function(x) x.Waschzahlen).ToString()
- .Rows(0).Cells("März").Value = UmsatzDS1.UmsatzDT.Where(Function(x) x.Datum >= "#1/3/2014 12:00:00 AM#" AndAlso x.Datum <= "#31/3/2014 12:00:00 AM#").Sum(Function(x) x.Waschzahlen).ToString()
- .Rows(0).Cells("April").Value = UmsatzDS1.UmsatzDT.Where(Function(x) x.Datum >= "#1/4/2014 12:00:00 AM#" AndAlso x.Datum <= "#30/4/2014 12:00:00 AM#").Sum(Function(x) x.Waschzahlen).ToString()
- .Rows(0).Cells("Mai").Value = UmsatzDS1.UmsatzDT.Where(Function(x) x.Datum >= "#1/5/2014 12:00:00 AM#" AndAlso x.Datum <= "#31/5/2014 12:00:00 AM#").Sum(Function(x) x.Waschzahlen).ToString()
- .Rows(0).Cells("Juni").Value = UmsatzDS1.UmsatzDT.Where(Function(x) x.Datum >= "#1/6/2014 12:00:00 AM#" AndAlso x.Datum <= "#30/6/2014 12:00:00 AM#").Sum(Function(x) x.Waschzahlen).ToString()
- .Rows(0).Cells("Juli").Value = UmsatzDS1.UmsatzDT.Where(Function(x) x.Datum >= "#1/7/2014 12:00:00 AM#" AndAlso x.Datum <= "#30/7/2014 12:00:00 AM#").Sum(Function(x) x.Waschzahlen).ToString()
- .Rows(0).Cells("August").Value = UmsatzDS1.UmsatzDT.Where(Function(x) x.Datum >= "#1/8/2014 12:00:00 AM#" AndAlso x.Datum <= "#31/8/2014 12:00:00 AM#").Sum(Function(x) x.Waschzahlen).ToString()
- .Rows(0).Cells("September").Value = UmsatzDS1.UmsatzDT.Where(Function(x) x.Datum >= "#1/9/2014 12:00:00 AM#" AndAlso x.Datum <= "#30/9/2014 12:00:00 AM#").Sum(Function(x) x.Waschzahlen).ToString()
- .Rows(0).Cells("Oktober").Value = UmsatzDS1.UmsatzDT.Where(Function(x) x.Datum >= "#1/10/2014 12:00:00 AM#" AndAlso x.Datum <= "#31/10/2014 12:00:00 AM#").Sum(Function(x) x.Waschzahlen).ToString()
- .Rows(0).Cells("November").Value = UmsatzDS1.UmsatzDT.Where(Function(x) x.Datum >= "#1/11/2014 12:00:00 AM#" AndAlso x.Datum <= "#30/11/2014 12:00:00 AM#").Sum(Function(x) x.Waschzahlen).ToString()
- .Rows(0).Cells("Dezember").Value = UmsatzDS1.UmsatzDT.Where(Function(x) x.Datum >= "#1/12/2014 12:00:00 AM#" AndAlso x.Datum <= "#31/12/2014 12:00:00 AM#").Sum(Function(x) x.Waschzahlen).ToString()
Im Beispiel sieht man vielleicht ehe, was ich meine!
Hat jemand für mich einen Tipp, wie man es eleganter machen kann?
Danke
Matthias
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „MR_NMS“ ()