AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj: Fix validation to allow for empty strings to be set as an index value

Browse Source
This commit is contained in:
Jonathan Jenne 2018-08-28 14:04:39 +02:00
parent 658569dfe9
commit ad4d416c93
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD_PM_WINDREAM/ClassPMWindream.vb
View File

@ -45,9 +45,10 @@ Public Class ClassPMWindream
Dim itsType As Type = aValue.GetType Dim itsType As Type = aValue.GetType
If itsType Is GetType(String) Then If itsType Is GetType(String) Then
If Not aValue = "" Then ' Änderung 28.08.2018: Auch ein leerer String gilt als Wert, damit indexfelder auch geleert werden können
Return True 'If Not aValue = "" Then
End If ' Return True
'End If
Return False Return False
Else Else

3
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -2518,7 +2518,8 @@ Public Class frmValidator
missing = True missing = True
errmessage = "Please Choose an entry out of ComboBox '" & cmb.Name & "'" errmessage = "Please Choose an entry out of ComboBox '" & cmb.Name & "'"
Exit For Exit For
ElseIf cmb.SelectedIndex <> -1 Then 'ElseIf cmb.SelectedIndex <> -1 Then
Else 'Änderung 28.08.2018: Ein leerer Wert in der Combobox wird in den Index geschrieben
input = cmb.Text input = cmb.Text
Dim wertWD As String Dim wertWD As String
'den aktuellen Wert in windream auslesen 'den aktuellen Wert in windream auslesen