Hallo
Ich bin gerade dabei eine Auswertung für Umsatzeinträge zu schreiben.
Dafür habe ich auf eine Form ein Listview, zwei Comboboxen und einen Button erstellt.
Mit den Comboboxen kann der User den Monat und das Jahr auswählen, in der Listview werden die Werte angezeigt (bzw. sollen die Werte angezeigt werden - bin erst am Anfang).
Der Button dient nur dazu das Makro zu starten.
Bisher habe ich erst den Code geschrieben, um aus den Combobox auswahlen (z.B. "März"; "2018") Daten zusammenzubauen.
Mein Makro soll also den ersten Tag dieses Monats ausgeben (01.03.2018), den letzten Tag des Monats (31.03.2018), sowie die Anzahl der Tage.
Die Daten 01. - 31. 03. wollte ich dann Testweise erstmal in mal Listview schreiben.
Alles funktioniert einwandfrei und ich brauche (erstmal) keine Hilfe beim Code an sich.
Aber beim Debuggen ist mir dann aufgefallen, dass ich mir die Belegung der Datumsvariablen in der IDE nicht anzeigen lassen kann.
Statt des Wertes erhalten ich die Meldung
Über eine Messagebox kann ich mir aber die korrekten Werte ausgeben lassen und auch die Makros funktionieren.
Ist das ein Fehler der IDE, oder passt bei mir eine Einstellung nicht?
Hier noch der Code:
Und die Solution hab ich auch mal rangeschmissen. Dieser "Fehler" betrifft nur die frmEvaluation. Rest einfach ignorieren.
Ich bin gerade dabei eine Auswertung für Umsatzeinträge zu schreiben.
Dafür habe ich auf eine Form ein Listview, zwei Comboboxen und einen Button erstellt.
Mit den Comboboxen kann der User den Monat und das Jahr auswählen, in der Listview werden die Werte angezeigt (bzw. sollen die Werte angezeigt werden - bin erst am Anfang).
Der Button dient nur dazu das Makro zu starten.
Bisher habe ich erst den Code geschrieben, um aus den Combobox auswahlen (z.B. "März"; "2018") Daten zusammenzubauen.
Mein Makro soll also den ersten Tag dieses Monats ausgeben (01.03.2018), den letzten Tag des Monats (31.03.2018), sowie die Anzahl der Tage.
Die Daten 01. - 31. 03. wollte ich dann Testweise erstmal in mal Listview schreiben.
Alles funktioniert einwandfrei und ich brauche (erstmal) keine Hilfe beim Code an sich.
Aber beim Debuggen ist mir dann aufgefallen, dass ich mir die Belegung der Datumsvariablen in der IDE nicht anzeigen lassen kann.
Statt des Wertes erhalten ich die Meldung
"Der Wert kann nicht bereitgestellt werden: Der Hostwert wurde nicht gefunden."Über eine Messagebox kann ich mir aber die korrekten Werte ausgeben lassen und auch die Makros funktionieren.
Ist das ein Fehler der IDE, oder passt bei mir eine Einstellung nicht?
Hier noch der Code:
VB.NET-Quellcode
- Private Sub FillList()
- 'Anzahl der Warengruppen ermitteln
- Dim GroupCount As Integer
- GroupCount = DSIncome.ProductGroup.Count
- 'erste Spalte für Datumswerte anlegen
- ListEvaluation.Columns.Add("Datum", 100, HorizontalAlignment.Left)
- Dim Groupname As String
- 'entsprechend Spalten anlegen
- For i = 0 To GroupCount - 1
- 'Name aus BindingSource lesen
- Dim ProductGroup = DirectCast(DirectCast(ProductGroupBindingSource(i), DataRowView).Row, DSIncome.ProductGroupRow)
- Groupname = ProductGroup.Name
- 'Spalte für jede Warengruppe anlegen
- ListEvaluation.Columns.Add(Groupname, 100, HorizontalAlignment.Center)
- Next
- 'Start und Enddatum aus Comboboxen ermitteln
- Dim StartDate As Date
- Dim EndDate As Date
- Dim Numberofdays As Integer
- If Not GetDates(StartDate, EndDate, Numberofdays) Then
- MessageBox.Show("ungültige Datumsauswahl")
- Exit Sub
- End If
- 'Schleife durch jeden Tag des Monats
- Dim TempDate As Date
- For i = 0 To Numberofdays - 1
- TempDate = StartDate.AddDays(i)
- ListEvaluation.Items.Add(TempDate.ToString)
- Next
- End Sub
VB.NET-Quellcode
- Private Function GetDates(ByRef Startdate As Date, ByRef EndDate As Date, ByRef Numberofdays As Integer) As Boolean
- Dim strMonth As String = cbMonth.Text
- Dim year As Integer
- 'Prüfen ob cbyear numerisc ist
- If Not Integer.TryParse(cbYear.Text, year) Then
- Return False
- End If
- Dim Month As Integer
- Select Case strMonth
- Case = "Januar" : Month = 1
- Case = "Februar" : Month = 2
- Case = "März" : Month = 3
- Case = "April" : Month = 4
- Case = "Mai" : Month = 5
- Case = "Juni" : Month = 6
- Case = "Juli" : Month = 7
- Case = "August" : Month = 8
- Case = "September" : Month = 9
- Case = "Oktober" : Month = 10
- Case = "November" : Month = 11
- Case = "Dezember" : Month = 12
- Case Else
- Return False
- End Select
- Startdate = Date.Parse("01." & Month & "." & year)
- Numberofdays = Integer.Parse(DateTime.DaysInMonth(year, Month).ToString)
- EndDate = Startdate.AddDays(Numberofdays - 1)
- Return True
- End Function
Und die Solution hab ich auch mal rangeschmissen. Dieser "Fehler" betrifft nur die frmEvaluation. Rest einfach ignorieren.
