fix ENABLE_SQL plus its LOADED brother

This commit is contained in:
Jonathan Jenne 2021-10-18 16:33:46 +02:00
parent e9fb4deec6
commit 1dcb350dcc

View File

@ -1941,6 +1941,11 @@ Public Class frmValidator
End Sub
Private Sub Controls2beEnabled(pControlName As String)
Try
' 18.10.2021: ENABLE_SQL nicht beim Form Load verarbeiten
If FormLoaded = False Then
Exit Sub
End If
Dim oFilteredDatatable As DataTable = DT_CONTROLS.Clone()
Dim oExpression = $"SQL_ENABLE like '%#CTRL#{pControlName}%'"
DT_CONTROLS.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges)
@ -3503,11 +3508,14 @@ Public Class frmValidator
Private Sub frmValidation_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
' Refresh_FileList()
Load_Next_Document(True)
Controls2B_EnDisabled_on_Load()
_dependingControl_in_action = False
_dependingColumn_in_action = False
Controls2beDisabled()
' 18.10.2021: Brauchen Sie das Überhaupt??
'Controls2beDisabled()
BringToFront()
If bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Always Then
_frmValidatorSearch?.BringToFront()