fix ENABLE_SQL plus its LOADED brother
This commit is contained in:
parent
e9fb4deec6
commit
1dcb350dcc
@ -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()
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user