jj: Fix validation to allow for empty strings to be set as an index value
This commit is contained in:
parent
658569dfe9
commit
ad4d416c93
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user