@VaporiZed
Ups.. da war mein Test weg....
Hab das nun so umgeändert.
Spoiler anzeigen
Ups.. da war mein Test weg....
![;(](https://www.vb-paradise.de/wcf/images/smilies/crying.png)
Hab das nun so umgeändert.
![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)
VB.NET-Quellcode
- Private Sub CheckMonth()
- ' Prüfen ob der gewählte Monat schon existiert
- Dim dtWeather = DsWeather.dtWeather
- Dim targetMonth As Integer = _dateService.CurrentMonth
- Dim monthExists As Boolean = False
- For Each row As DataRow In dtWeather.Rows
- Dim month As Integer = CInt(row("Monat"))
- If month = targetMonth Then
- monthExists = True
- Exit For
- End If
- Next
- If Not monthExists Then
- CreateNewTable(_dateService.CurrentYear, _dateService.CurrentMonth)
- End If
- End Sub
- Private Sub CreateNewTable(year As Integer, month As Integer)
- ' Hinzufügen des neuen Sheet für jeden Tag des Monats
- Debug.WriteLine("CreateNewTable wurde aufgerufen. Jahr: " & year & ", Monat: " & month.ToString())
- Dim dtWeather = DsWeather.dtWeather
- Dim daysInMonth As Integer = DateTime.DaysInMonth(year, month)
- For day As Integer = 1 To daysInMonth
- Dim sDay As String = $"{day:00}-{month:00}-{year}"
- dtWeather.AdddtWeatherRow(year, month, sDay, "", "", 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0)
- Next
- End Sub
Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. ![:huh:](https://www.vb-paradise.de/wcf/images/smilies/huh.png)
![:huh:](https://www.vb-paradise.de/wcf/images/smilies/huh.png)