remove continue for for readonly controls

This commit is contained in:
Jonathan Jenne 2022-07-08 11:16:34 +02:00
parent d96ed141c6
commit 92ef2464c2

View File

@ -4410,10 +4410,11 @@ Public Class frmValidator
Dim oSQLCheckCommand As String = IIf(IsDBNull(oControlRow.Item("SQL_UEBERPRUEFUNG")), "", oControlRow.Item("SQL_UEBERPRUEFUNG"))
Dim oIsReadOnly As Boolean = CBool(oControlRow.Item("READ_ONLY"))
If oIsReadOnly = True Then
' WARUM HABEN SIE GEMACHT????!!!!!!einself11
'If oIsReadOnly = True Then
' Continue For
'End If
Continue For
End If
Dim oControlType As String = oControlRow.Item("CTRL_TYPE")
Dim oIDBTyp As Integer
If IDB_ACTIVE Then