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

remove continue for for readonly controls

Browse Source
This commit is contained in:
Jonathan Jenne 2022-07-08 11:16:34 +02:00
parent d96ed141c6
commit 92ef2464c2
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -4410,10 +4410,11 @@ Public Class frmValidator
Dim oSQLCheckCommand As String = IIf(IsDBNull(oControlRow.Item("SQL_UEBERPRUEFUNG")), "", oControlRow.Item("SQL_UEBERPRUEFUNG")) Dim oSQLCheckCommand As String = IIf(IsDBNull(oControlRow.Item("SQL_UEBERPRUEFUNG")), "", oControlRow.Item("SQL_UEBERPRUEFUNG"))
Dim oIsReadOnly As Boolean = CBool(oControlRow.Item("READ_ONLY")) 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 oControlType As String = oControlRow.Item("CTRL_TYPE")
Dim oIDBTyp As Integer Dim oIDBTyp As Integer
If IDB_ACTIVE Then If IDB_ACTIVE Then