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

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

View File

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

View File

@ -2518,7 +2518,8 @@ Public Class frmValidator
missing = True
errmessage = "Please Choose an entry out of ComboBox '" & cmb.Name & "'"
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
Dim wertWD As String
'den aktuellen Wert in windream auslesen