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 End Sub
Private Sub Controls2beEnabled(pControlName As String) Private Sub Controls2beEnabled(pControlName As String)
Try 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 oFilteredDatatable As DataTable = DT_CONTROLS.Clone()
Dim oExpression = $"SQL_ENABLE like '%#CTRL#{pControlName}%'" Dim oExpression = $"SQL_ENABLE like '%#CTRL#{pControlName}%'"
DT_CONTROLS.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) 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 Private Sub frmValidation_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
' Refresh_FileList() ' Refresh_FileList()
Load_Next_Document(True) Load_Next_Document(True)
Controls2B_EnDisabled_on_Load() Controls2B_EnDisabled_on_Load()
_dependingControl_in_action = False _dependingControl_in_action = False
_dependingColumn_in_action = False _dependingColumn_in_action = False
Controls2beDisabled() ' 18.10.2021: Brauchen Sie das Überhaupt??
'Controls2beDisabled()
BringToFront() BringToFront()
If bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Always Then If bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Always Then
_frmValidatorSearch?.BringToFront() _frmValidatorSearch?.BringToFront()