datumsinit gefixed da Wert immer Überschrieben wurde

This commit is contained in:
ja
2021-09-21 14:52:34 +02:00
parent 43193645dd
commit b752460dc4

View File

@@ -20,6 +20,10 @@ Partial Class Kundenbereich_Default
' MsgBox(datebis)
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
Else
Dim erster = New Date(Now().Year, Now().Month, 1)
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
@@ -27,10 +31,6 @@ Partial Class Kundenbereich_Default
datevon = ersterdat
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
Else
datevon = Nothing
datebis = Nothing
rbt_Alle.Selected = True
rbt_Alle_M.Selected = True
normaltable.EnableViewState = True