MS07062016

This commit is contained in:
SchreiberM
2016-06-08 11:17:46 +02:00
parent 65788f29f8
commit 9920ffe9e6
7 changed files with 68 additions and 52 deletions

View File

@@ -318,11 +318,10 @@ Public Class ClassControlBuilder
Select Case row.Item("CONTROL_TYPE_ID")
Case 4 'DatePicker
Try
value = CDate(value)
value = CDate(Format(value, "dd-MM-yyyy"))
Catch ex As Exception
ClassLogger.Add("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & CONTROL_ID.ToString & "- Error: " & ex.Message)
End Try
End Select
' Diese Abfrage verhindert, dass Werte, die aus z.B. CheckedListBoxen kommen,
' nicht überschrieben werden. Diese Werte werden bereits mit UpdateMultipleValues gespeichert
@@ -364,7 +363,7 @@ Public Class ClassControlBuilder
Dim val = dt.Rows(0).Item(0)
Dim dateValue
Try
dateValue = CDate(val)
dateValue = CDate(Format(val, "dd-MM-yyyy"))
Catch ex As Exception
ClassLogger.Add("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & dependingControlId.ToString & "- Error: " & ex.Message)
Continue For